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A. PURPOSE 


The purpose of this thesis it to illustrate the design 
and use of an interpreter for the Extended Lambda Calculus 
(ELC) as described by MacLennan [Ref. 1}. Initially 
however, it 1S important to understand why functional 
languages such as ELC are important and way they will become 
increasingly important in the future. To achieve this, a 
brief background sketch 1S presented to explain the events 


that have Shaped tne need for such languages. 


B. BACKGROUND 


During the brief history of Computer Science there has 
been a remarkably rapid evolution oof computing hardware, 
while software develojment has for all practical purfoses 
remained static. Throughout the last thirty years, improve- 
ments such aS: decreaSing compenent size, increased memory 
capacity, faster processor speeds and reduced hardware costs 
have eccurred at regular intervals. This trend continues 
today in areas such aS Super computers like the Cray and 
Cyber and the rapidly changing micro computer industry. If 
one studies the evolution of computer software for the same 
time rferiod, in particular programming languages, the same 
types of rapid improvements on a regular basis have not 
occurred. The first revolutionary development in progran- 
Ming languagesS occurred with the development of FORTKAN by 
Backus et al. in the pad Sils0ce For the first time scien- 
tific programmers could write code that strongly resempied 
the equations they were working with. Practically alijthe 


programming languages developed since that time, perhaps 


with the exception of LISP and APi, are btaSically the same 
underneath aS Fortran. Of course there are some outward 
differences, such as sophisticated string and array handling 
mechanisms, but they are all Seguentially processed and rely 
heavily on use of the assignment statement, variables and 
the netion of machine state. The early pioneers in progran- 
Ming languages are not totally at fault for the lack of 
progress. To understand this statement, a brief examination 
of the architecture these ianguageS were written for is 
necessary. 

The great improvements in hardware development, 
mentioned previously, were also not fundamental until fairly 
recently. Hardware improvemerts remained Ssuperficiai in 
that the majority of them were made on the same architec- 
ture, that proposed by von Neumann et al. in 1946. Briefly, 
the von Neumann architecture consists of a Central 
Processing Unit, a Memory used to store both programs and 
data, and some kind cf connecticn between the two capable of 
transmitting single words or addresses back and forth. 
Improvements have concentrated on decreasing size, 
increasing speed, etc. and have not been concerned about the 
basic design of the computer. The connection between the 
memory and the CPU is the reason why most programming 
lanyuages are seguential in nature, forcing the user to deal 
with some fairly low level constructs such as incrementing 
counters and setting up iteration loops. Backus [Ref. 2] 
termed this connection the von Neumann bottleneck and also 
described conventional programming languages as just soft- 
ware versions of von Neumann machines. Computer architec- 
tures are starting to change, hcwever, and in order to gain 
the wpaximum benefit from then programming languages’) and 
technigues must change also. 

Throughout the development of new hardware systems the 


trend has been to increase speed by making components 


smaller and smaller. Common sense dictates that eventually 
the ability to do this will become physically impossible. 
Does this mean that the yuest to increase computation speed 
will stop? Obviously not. The most promising solution is 
to fully exploit parallel operations in data processing 
whenever possible. As explained by Stone [Ref. 3], much 
promising work has been accomplished in the fields of array, 
multiprocessor, and pipeline computers, but there are still 
open research probiems concerning how to properly organize 
and synchronize all these processors. In other words there 
is no effective software to manage parallel computer opera- 
tions. Conventional procamming languages, With their 
sequential nature, do not offer much hope as a solution. 
The functional programming languages, such as FP proposed by 
Backus [Ref. 2], or the Kent Recursive Calculater by Turner 
fRef. 4j, by their very nature lend themselves to parallel 
operations. This is illustrated in the next section. 

As stated previously, one of the biggest problems with 
conventional languages is the assignment statement. Backus 
[Ref. 2] calls the assignment statement the bottleneck of 
programming languages because at the heart of all ccnven- 
tional programs we find a myriad of assignment »)perations 
producing one word results. The programmer ust then 
concern himself with the flow of words through these assign- 
ment statements to achieve the desired results, instead of 
concerning himself with the prcblem asa whole. Another 
problem with the assignment statement is that it maxes 
programs unreliable. Mathematical proofs do not lend then- 
selves well to statements. Consider someone trying to doa 
mathematical proof of the following statement. 

X 3:= xt] 
That statement makes absolutely no sense mathematically. 
How can 'x' be assigned the value of itself plus one? This 


statement 1s legal, howevelL, in most conventional 
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programming languages and makes formal proofs of then 
extremely difficult as shown by the work of Hoare [Ref. 5]. 
Functional languages do away with tae idea of the assignment 
Statement and work only with exj;ressions. Expressions, in 
contrast with statements, do posess mathematical properties. 
Backus [Ref. 2] has even shown that the functional language 
FP lends itself to an algebra cf programs that can allow for 
relativly simple proofs of program correctness. Since func- 
tional languages deal oniy with expressions, the idea of 
execution order becomes obsolete, as explained by MacLennan 
[Ref. 6]. One begins to understand how these languages can 
be used to exploit parallelism since several expressions 
could be solved simultaneously and then brought together to 
form a final result. 

Another advantage of functional programming is the 
compactness of the code written by programmers. Two exan- 
ples from the literature illustrate this fact very well. 
Backus shows in [Ref. 2] an FP program to calculate the 
factorial of an arbitrary integer on. The program is one 
line long, whereas the corresponding program written in PL/I 
is eight lines long. The two programs are shown in Figure 
1.1 fer comparison. An even more startling example was 
devised by Early [Ref. 7], where a two pass assembler was 
written in both FP and cC for an artificial assembly 
language. The assembler written in C occupied 459 lines of 
non-ccemment source code, where as the FP assembler occupied 
249 lines, of which more than 100 lines were only a single 
Character so aS to aid in program readability and clarity. 
This fact could have far reaching effects in an attempt to 
solve the software crisis as presented by Turner [Ref. 4]. 
The fact that the code 1S more compact could mean increased 
programmer productivity since it is well known that progran- 
Ring time is roughly proportional to the number of lines of 


code regardiess of the language being used. Also, since it 
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Def! = egQ0 --> 1: x dot (.1d7! dor suo 
Notes dot = ccmposition 
FE 
Eacite 


proc (n) recursive returns (fixed) ; 
oe OY) fixed; 


1 too 
then v = 1; 
else v = n * fact(n - 1); 
return (v) ; 
end fact; 
PL/I 


; eee 


Figure 1.1 Factorial Frogram in FP and PL/I. 


is eaSier to prove functional programs correct, software 
maintenance costs could imprcve dramatically. Earl yu 
project also demonstrated this fact in that the assembler 
written in C took sixty hours tc complete compared to twenty 
for the FP version. One of the main reasons for this fact 
was that debugging time for the FP version was negligble. 
This was attributed to the fact that FP programs do what you 
expect of them since they are so easily proven correct. 
Functional languages are not without their critics and prob- 
lems, however, a fact which merits discussion. 

There are those that will argue that functionam 
languages should not be used because they are not readable. 
This varies somewhat depending on the functional language 
being studied. In Figure 1.2 there are three examples of 
functions to take the sum of twe numbers. They are written 
in Backus* FP, Turner's KRC, anguere. 

What does "readable" really mean? Is the ELC function 
more readable because it is obvious that a function 1s being 


called (because of the explicit use of the word "cail"), or 
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$526 1 > 

rh * 

Simi eee 
che <2 


<call <var Suna con ie <Con 22> 


| aa 


— 
| 
| 


Figure 1.2 Sum in Three Functional Languages. 


are the other implementations mcre readable because of their 


conciseness? The pcint is that readability means different 
things to different feople. It also depends to a certain 
degree on training. A programumer well versed in FP wili 


undoubtedly feel comfortable with the FP version and might 
find the ELC notation too verktose and wasteful. On the 
other hand, a person not familiar with FP or KRC may be able 
to tell more about what the function is supposed to do by 
reading the ELC versicn. 

The conclusion is that the readability issue iS nota 
good reason to abandon functional programming. Of course 
there is a certain amount of learning time required, as with 
any language, and it may even be more severe in this case 
due to the mathematical nature cf these languages. However, 
if the benefits of exploiting paralielism and decreasing 
software maintenance costS can be achieved, they wili far 
outweigh the disadvantage of a lonyer learning period. 

Another problem area that has kept the popularity of 
functional languages to a minimum is the halting problem as 
descriked by MacLennan [Ref. 6]. As stated, Since func- 
tional programs are ccnstructed from expressions, evaluation 
order does not matter. This is true, however, only for 
problems that halt. It 1s possible to write some functional 


programs in such an crder that will cause them to go into 


ie 


infinite loops. For examples of such programs see MacLennan 
[Ref. 6}. 

Is the halting problem a reason to disregard the value 
of functional progamming? If it is, then all other progran- 
mMiny languages shouid be discarded. It 1s not unusual ies 
programmers, using conventional languages, to occaSionally 
write programs that go into infinite loops. 

Pinally, anotner reason why functional programming 
lanyuages are not currently popular is that they do not work 
very efficiently on conventional architectures. As stated 
previously, most current architectures are von Neumann in 
hature, meaning they are sequential. The result is that the 
inherent parallelism of the furctional languages cannot be 
exploited. There is work being done to design new architec- 
tures, some specifically for functional languages. One of 
the most promising is the reduction architecture proposed by 


Mago, which is described in [Ref. 8]. 
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II. INTERPRETER OPERATIONS 


A. ASSUMPTIONS 


It 1S assumed that the reader has a working knowledge of 
recursion and recursive languages, in particular Pascal. If 
not refer tc Cooper [Ref. 9] fcr information. The reader 
must also have knowledge of the Extended Lambda Calculus as 
presented by MacLennan [Ref. 6]. Complete descriptions of 
these areas are beyond the scope of this report. 

The interpreter iS a prototype systen, SO priorities 
were given to successful operation and to clarity of code 
rather than to efficiency. Efficiency was not completely 
forgotten and suggestions on future improvements in this 


area are given in Chapter 4, Conclusions. 


B. PASCAL IS THE IMPLEMENTATION LANGUAGE 


Pascal was chosen as the implementation language for the 
interpreter for two reasons. Rais C., Pascal is the high 
level language taught to Computer Science students at the 
Naval Postgraduate School. Implementation of the inter- 
preter in Pascal will thus facilitate its future use by 
students without the necessity of learning a new language. 
Second, using PaScal demonstrates that an interpreter of 
this type can be written in almost any programming language 
providing that it has recursion. Pascal, nowever, is not 


the ideal language for this type of project. 
1. Pascal Does Have Some Advantages 


The principal advantage of Pascal is the ability to 
dynamically allocate memory, which takes the burden of 


Managing an array or heap space away from the programmer. 
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Mer cy management is »)vered in detail in Section F of this 
che ter. The other advantage of Pascal is the clarity of 
the code as opposed to some other languajes such as FORTRAN 
Oueice Pascal is not as efficient as these other languajes, 
but in a prototype system like this clarity isa higher 


ie deOis at Vie 


2. Pascal's Disadvantages are Commonly Known 


== ee ee a= a ER Ga ES ee —= a_ == a a SE See 


Pascal's disadvantages for this particular implenmen- 
tation are no different than any other; however there are 
two that deserve special mention. Pascal input-output 
facilities afe very awkward to use. Any ~ype of translating 
program, whether it be an interpreter or compiler, must scan 
an input progran, either from a file or terminal, before 
execution. Pascal provides only for input to be read in one 
character at a time. This technigue 1s obviously very inef- 
EVELeNG, especially since it 1s well known that a good 
method of improving program efficiency is by reducing the 
hHhRumber of I/O calls required. At a minimum, ae better 
language would allow at least an identifier at a time to be 
read, while the ideal language would allow a large amount of 
data to be read into a buffer, which could then be scanned 
and used as needed, only more efficiently because it is in 
main memory. If the interpreter were reading from a disk, a 
logical amcunt of data to be read at one time would te an 


entire ‘track. 


C. THE CELL AND THE REPRESENTATION OF ATOMS AND LISTS 


1. Atoms 


In ELC, as in LISP, there are only two elements, 
atoms and lists. Atcms are ncen-divisible entities such as 
intes 3, real numbers, characters, and identifiers. FOL a 


complete breakdown of atoms andthe rest of the language 
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refer to the grammar in Appendix A. Lists are seguences of 
atoms or lists or atoms and lists separated by spaces and 


surrounded by angle brackets as in Figure 2.1. 


cso: +--+ - CC Or 3 3-- seee 


ae ae 
“list db e> | 
<list a b <list c d> e> 
<letrec append .. .> | 


SE SER eS ee SS ee 


Figure 2.1 ELC Lists. 


Atoms are used to represent information and data in 
the language, so the interpreter must have a way of repre- 
senting then. Simple records are not adequate, however, 
because there are several kinds of atoms and they must be 
distinguishable. The perfect choice is the variant record, 
which allows the same record structure to be used for all 
atoms while permitting some orall of the information to 
vary depending on the value of a tag field. These variant 
records are referred to as cells throughout the remainder of 


the report. Tags for the different atoms are: 
e boo (boolean values) 
e rea (real values) 
e int (integer values) 


e alf (identifier; corresponds to Berkeley Pascal alfa 


type which is a string of ten characters) 


Figure 2.2 illustrates the Pascal represention of an atom 
cell. 


Wy 


ooo 


Pointer 


Figure 2.2 Representation of a Cell Containing an Integer. 


2. What about lists? 


The atoms are the building blocks of ELC and, when 
placed in sequences forn, the lists previously described. 
Lists are also formed using variant records. Lists are 
Mhaturalliy thought of as items that are grouped together 
because of a common bond. The linked list of Pascal is the 
hatural method to use to represent theSe groups. This is 
clear because the interpreter needs to be able to create 
lists of varying lengths during execution. Since the size 
of Pascal arrays must be declared before program execution, 
their use to represent lists is impossible. A language with 
arrays that could grow dynamically would be more efficient 
to use in order to avoid the overhead required in main- 
taining Pascal pointers in linked lists. The list celluuae 
Shown in Fiyure 2.3. The basic ceil structure is the Same, 
except that the tag is now ‘lst' and the variant portion of 
the record contains two fields (head and tail) tnat are 
pointers to other cells. AS mentioned previously, lists are 
sequences of atoms, lists, or atoms and lists surrounded by 
angle brackets. In crder for the interpreter to recognize 
where the angle brackets are, the tail field of certain lst 
celis are set to nil. The representation of two simple 


lists 1S snown in Figures 2.4 and 2.: 
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————— Le eS hl CCC CC 


ee 


Pointer 
from another 
cell 





ao ee 


+-->jref = 0 | 

tag = ist | 
<------/;head | tail|l------ >Pointers to 
Seo > See ogee other cells. 


Figure 2.3 Pascal Representation of a List Cell. 











oe 





—- @°~°& Sa ge ~ i a 
| 
<a b o> | 
mee (roc = 1 | 
tag = lst 
__fhead | tail]_ | 
#->[ref=1. | t>iref = 1 | | 
Gag s= al tag = lst | 
Pan =e ao eee | 
aa oo __jhead | taill__ 
ees T | 
eee... Bote ee 
ref = 1 malic Ss =1 | 
+->jtag = alf tag = list 
avale=— 0" | SL ee 
Se Delcad ital | 
| | 
| +-->nil 
alice = 1 | 
a = 
Javal = "to" | 
a EE | 
Figure 2.4 Representation of a Simple List. 
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Tales = j 
itag = ist il 
Jhead | tail]_ 





| 
| noon ali. tag = lst | 
aval = ‘al i) Se 
| 22,2 [os | coe 
ee owe es @ ee ew oe = | 
| jref = 1 | Sar 
jtag = lst 
| on ie aie ie 
#->|ref = 1. | t>|ref = 7 — 
ee ares tag = dst i 
aval = 'b!] 9 %----___-_-_--—_— 
=== ==> oe  anaas i tai 
| aN ee = 1 I 
tag —§ ait 
jJaval = ‘'c'] 
Prgure @2. 5 
The first list contains three atoms. 


that there 


cells that are 


the list 1S contained in other 
the list cells. 
the next list cell, 


the heads of 
point to 
next element 
sented by 
nid. 


its elements 


are three elements in 


in, théesiasé. 
the tail field of 
The example in Figure 2.5 is a list that has as 


another list. 


<a <b c> d> 


"sea = 1 | 


the 


tagged as lists (lst). 


The 
the last 
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which in turn powers 


end of the list 


Chce again 





| | 
“eee =1 “4 
tag = list | 
__jhead | tail| 
|" ">=" =n 
| l 
| | 
| eee 
+->|ref = 1 
tag = sae | 
aval = 'd' 
+-->nil 


List Within a List. 


to tell 


counting the 


It 1S easy 
1i Stay 


The informaticn am 


cells that are pointed to by 
The tails of the list cells 


to the 
1s repre- 
element being set to 
one of 


if you count tae 


number of 1st cells that are at the top of tne Figure, there 
are three with the tail field of the lst cell at the far 
mrght set to nil. Being ccnsistent with the previous 
discussion this is a list containing three elements. The 
head of the second lst cell, however, does not point toa 
leaf or information cell, it points to another 1st cell 
which forms the identical structure as previously seen. 
Again, the tail field of the last element in the internal 


list is nil, signifying the end of this list. 


D. ELC PROGRAMS 


1. Definition 


An ELC program iS nothing more than a list built in 
such a way that it can be evaluated by the interpreter. ait 
is important to remember that cne program equals one list. 
Of course this one list usually consists of many other 


nested lists as its elements. 


2. kKeading Programs 


Frograms are read into the interpreter by the 
readval and readlist functions, which can be reviewed in 
Appendix C, Source Code. The reading process is started by 
the following line of the interpreter. 

printval ( eval( readval, primitives) ) 
The first function called 1s the readval function which 
determines the type of data being read by recognizing the 
first character of the input. Since a program isa list, 
the first character will obviously be a left angle bracket 
a ', transfering execution to the readlist function. 
Readlist builds the program intc the same kind of structure 
as discussed inthe last secticn. This is seen by first 
noticing that readlist calls readval again and the results 


are placed in a list through the cons function. A detailed 
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description of the primitive cons is covered in Section 3 f 
this chapter, but suffice it to say that cons forms .e 
first element of the list represented as a cell pointed to 
by the head of a Ist cell with the tail set to nil. 
Additional cells are added by connecting them properly to 
the tail of the last cell read using the cons primitive and 
manual manipulation cf pointers. This is accomplished by 
the while loop in function readlist. This process continues 
until a right angle bracket iS recognized, which of course 


Signifies the end of a list. 
3. Primitive Operations 


The following are the [rimitive operations provided 
by the interpreter and a brief explanation of each. Correct 
syntax for the language is covered in Appendix A. 

e First Takes a list and returns the first element, eg. 


the first of <aUb Gou1s a. 


e Rest Takes a list and returns a 1list containing every- 
thing but the first element, e.g., the rest of <a <bec 
d> e> is <<b c d> ed. 


e Last Takes a list and returns the last element, eé.g., 


the last of .<a beGc see. 


last, e.g., the initial of <avb cc seas 


e Cons Takes an atom or list and makes it the first 
element of a seccnd list. The second argument of a cons 
Operation must bea list. 

cons a <b @> = <dgnne> 
cons <a b> <c d> = <<a b> c d> 


e Conr Cons’ to the right. Conr is the opposite of the 
cons operation in that it makes an atom or list the last 


element of a Second Pirst. 


ee 


eontca <b Clu= 2 <b C.a> 
GOnt <a vp> 7 <erd>)— <C ad. <awb>> 


Atom A Boolean function that determines if its argument 
is an aton. 
atom ‘a’ = true 


atom <list a b @© = false 


Nuli A Boolean function to determine if a list contains 
no elements. The last exauple is a list containing one 
element which harfens to bea null list. 

null <> = true 

null <a> = false 

null <<>> = false 


Binary Arithmetic Operators Each of the listed operators 
works for any @,n where m,n are two integers or two real 
numbers. 

Sun Dn 

Subt fn 

prod mn 


divi mf n 


Trigonometric Functions The following functions take 
Single arguments cf angles in degrees. 
Sin 
cos 
tan 
cot 


Sec 


~ & MM OM OM 


CSC 


id Identity Function; simply returns the argument it is 
Sent, eg. id 2= 2 and idta' = ‘tat, The purpose of 
this function is illustrated in example program x 
Appendix B which generates the table of sin, cos, tan 


for all angles from 0 to 90 degrees. 


Za 


e Sub Returns a particular element from a list. Takes two 
arguments: a pointer to a list and an integer indicating 
the position of the desired element ina list. For 
example, sub (<A BC> 2) = B 


e Repr Takes a finite set (finset) as an argument and 
returns its ELC representation, which is simply a list. 
repr <finset a E ¢ 1 2>a= “a0 eeeee 


e Len Determines the length of any list. 
len <a> = 1 
len < > = 0 
len <a <b c> dd = 3 


e Egual Equal tests the equality of any two atoms or any 
two lists. 
egual <2 2> = true 
egual <a c> = false 
equal <a b c> <a b c> = true 
equal <a b c> <a <b> c> = false 


e GT Greater-than tests if argl is greater that arg2. 
GT argi arg2 = true/false 
GT 2 3 = false 
GT 5 1= true 


The next three boolean primitives follow the same pattern 


as GT. 


* 
It 


IT Less-than 


@ 
Im 


E Greater-than or egual to 


° 
It 


EF Less-than or egual to 


e Memb Member tests to see if arg1iis an element of arg2, 
which must be a list. 

memb arg1 <arg2> = true/false 

memb 2 <1 2 3> = true 
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memb <2> <1 2 3> = false 
memb <a b> <z t S <a b>D> = true 


E. THE HEART OF THE INTERPRETER, THE EVAL FUNCTION 


The eval function, Figure 2.6, 1s the most important 
function in the interpreter. Eval acts as a decoder, deter- 
Mining how each list sent to it is to be interpreted. This 
is accomplished by stripping off the first element of the 
list or program and then invoking a rule that corresfonds to 
that first element. For example, if the program is 

<list ab o> 

eval will strip off the word "list" and return <a b © as 
the result. Referring back to the line of code that starts 
program execution, 1t 1S seen that after the progran 
is read init 1s sent to the eval function along witha 
pointer called primitives. Primitives iS a pointer to an 
association list which acts as an environment for executing 
the primitive operaticns discussed in the last section. For 
a detailed discussion of asSociation lists and environments 
see MacLennan [Ref. 6]. The primitives association list is 
built initially by using the dcprim (declare primitives) 
mnie tion. An example of a part of the 1ist is shown in 
Pogure 2.7. The reason this primitives association list is 
constructed is to maintain consistency between how primitive 
and user defined functions are evaluated by the interpreter. 
This is discussed in more detail later in the next section. 

It 1S important to now look at the key words recognized 
Ey eval and the rules they invoke. Boaeeaoing this, a 
complete understanding of the interpreter will be achieved. 


ieee runction Eval's Keywords 


e list 'List' simply lets the interpreter know that this 
expression 1S a 1ist, so €val returns the rest of the 


list sent to it. For example, if eval is sent 


ZS 





a 


SO 


STAMOS ee (e, a: list) ivse, 
Var 7, Ae ee List : 
elsalfa; 
begin 
if atomp(e) then eval := e€ 
else aaa 
Ee ie := first(e 
= e1pa, ava 
et ei = 'list' ties eval := evlis(rest(e), a) 
else if el 'rinset' then eval :=e 
else if el ‘con' then eval := first( rest(e)) 
else if e1 'var' then eval := assoc( a, 
first ( E Cote ) 
else if el = 'letrec' then eval ;= 
Giese ie iese | Ese (fl) « 
first (rest(rest sti 
first (rest(rest res fe) a) 
else if el = yao egin 
new(Cc, alf 
cel east “eval; 
S 





with Cd do ae 
Cage: 
aval := oT cle steer 
s= cons( cons(C,e), cons(a,nil : 
end {if el = Tape ae ae 
else if e1 ='if' then avd = evcon( rest(e), a) 
else if el = 'call' the 
eval := appl (eval (first (rest(e)), a), 
ev is (est (ese (e)) 4 ),a)) 
else 1f el = 'a a en 
eval: =apply (eval ( (first ey OS iajieg 
a LES eS eee atk 
else 1r el = 'le 


{First lines vac tua? paraneters and then 
form the environment of evaluation for the 
Vet ofa | nee 
tf. Paaets (ey PS fe Sy first( rest (e))), a) 
ev is ( first(res* ( first( rest (e)))), a), a 
Le 


ee” ey 


eval 


eval (first(rest( est (first(rest(e))))), 
en 


else errormsg('eval') ; 
"a" Indicates pointer 


pO ee 


end {Function eval}; 
Figure 2.6 Function Eval. 
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<list a bee. 


the rest of the list or <a E @ is returned. 


e con 'Cont tells the interpreter that the remainder of 
the list is a ceonsStant, so it iS returned aS such. 


Examples are: 


26 





Sh -uw------  ,_—_o 


< <first <prim first>> <rest <prim rest>>. . . > 


Figure 2.7 Primitives AsSociation List. 


<con > = 1 
<con <! 2 3>> = <1 2 3> 


e var The keyword var, tells the interpreter to search the 
current environment of execution for the value of a 
certain bound variable. For example, if <var x> was 
sent to eval and the association looked like 

aaxeo> <y ‘Navy*> <zZ 1400>. . .> 
eval would return the value of 5 for x. The search of 
the association list is performed by the assoc function 
of the interpreter. Refer to the source code for the 
interpreter found in Appendix C for amore detailed 


discussion of the assoc function. 





= en ee Nea e 


<lambda <x> <call <var sum> <var x> <var x>>> 


ee TS 


Figure 2.8 Lamtda Expression. 


e lambda Lambda expressions are ELC's analog to the proce- 
dure of conventional programming languages. These 
expressions are templates for solving certain problems 
using variables that must be bound to actual values 
before evaluaticn can take place. This template is 


commonly known aS an abstraction. The example given in 
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[fete a a RG BEET a 


2.8 1S a lampda expression that can take any xX, where x 
is an integer or real number, and add it to itself. it 
is currently not executable because no actual value for 
x 1s present. Since evaluation cannot be completed 
until later, the interpreter prepares the lambda expres- 
sion for future execution by forming a closure. This is 
accomplished by using the primitive cons to add the 
keyword 'closure' to the frent of the lambda expression 
and then using ccns once again to add this to the front 
of the current environment, which has been placed ina 
list by itself. Ali that is left is to bind x with a 
value and add that to the current environment for execu- 
ticn to take place. This is accomplished by the apply 


function, which is triggered by the keyword ‘call’. 


A SER eo a: 


<call <var sum>.<con 2> <con 3>> 
Call to Primitive Function 


<var xX> 
<var x>><con 5>> 


z 
| 
<call <lambda <x> <call <var sum | 

User Defined Function | 


Figure 2.9 Using Call to Invoke Functions. 


call The keyword ‘call' evckes the interpreter function 
apply to evaluate ELC function calls. The two simple 
examples given in Figure 2.9 are of a direct call toa 
primitive functicn and a call of the lambda expression 
discussed in the last section with the actual value of 
De The execution of each is traced below. Refer to 


Figure 2.6 to follow the trace. 


<call <var sum> <con 22 Scone 
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*call* is recognized by eval 


€var sum> is sent to eval with the current 


environment 
"var' is recognized by eval 


"‘sum' is looked up in the current envircnment 


by function assoc and <prim sum> is returned. 


Tne rest of the rest of the expression, which 
is <<con 2> <con =>> is sent to function evlis 
which in turn serds each of the elements of 
the list to function eval with the current 
environment.Evlis returns a list of the 
results. In this case <2 3> is sent to func- 


tion aprfly as the actual parameter. 


Function apply takes a function and applies it 
to a certain numker of arguments. It acts 
somewnat like eval in that it strips off the 
first element of the list sent to it to deter- 
Mine hcw to precede. Since the first element 
is ‘print the interpreter knows that the 


following element is the name of a primitive 


PWwne ti Ol. The result is that the function 
Mame, ‘'sun', and the arguments are sent to 
another function applyprim for fainad 
evaluation. 


sum, <2 3> are sent to applyprin. 
2, 3 are sent to function sun. 


A pointer to the answer is sent back eventu- 
ally reaching the initial call of function 
eval, the answer is printed, and evaluation 


SEOUS. 


Zo 


<c 


Note: The recursive nature of th interpreter 
is now clear, even for such a s..ple progran. 
This point affects efficiency and should be 


considered aS an area for future improvement. 


al 


<lambda <x> <¢call <var sum> 


"'call' recognized 


<lambda <x> <call <var Sum> <var x> <var x>>> 


sent to eval with curcrent environment. 


*‘lambda* recognized and a closure is formed as 
follows <<closure lambda <x> <call <var sum> 
€<var x> <var x>>> a> where ais the current 


environment. 
<con 5> 1s sent te eval; 5 is returned. 
The closure and 5 are sent to function apply. 


In function apply ‘closure' is recognized, so 
the body of the function call <call <var sum 
<var x> <var x>> is sent to function eval. But 
an environment must be created before evalua- 


tion can be completed. 


x, 5, and the current environment is sent to 
functicn pairlis where the new environment 1s 
created by forming an attribute value pair of 
x and 5, <x 5>, and adding this to the currecoe 


environment. 


Evaluation of the function now proceeds as the 
first example, except when <var x> is sent to 
eval the new environment is searched finding 
the value 5. 
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The consistency between how primitive and user 
defined functions are evaluated 1s now clear. ini Sece Cu- 
larity aids the programmer because only one convention nust 


be remembered to invoke all functions. 


| 
a 


<if <<call <var egual> <con 0> <con 3>> 
<con ‘true'> 
<con *false'>ds> | 


ic ed 


Figure 2.10 EIC Conditional. 


e if The keyword ‘if'* signals that the remainder of the list 
is a conditional statement, so the rest of the list is sent 
to function evcon, which first determines the value of the 
first surklist, which must in turn be a call to’- one of the 
Boolean functions. In Figure 2.10, 
€<call <var egual> <con 0> <con 3>> 

1s the condition. Function evcon sends the conditional to 
function eval with the current environment of evaluation. 
If the condition is not a Boolean function call an error 
mie CCCUL. If the condition evaluates to true, the result 
of evcon is the evaluation of the next sublist by eval. eat 
the condition is false, the resuit is the evaluation cf the 
djast sublist. In the example, since 0 and 3 are not egual 
the conditon is false so the last sublist is sent to eval, 


resulting in the constant 'false' being returned. 


e Letrec The keyword ‘letrec' 1s a signal to create a 
special environment fcr the evaluation of a recursive func- 
Lon « See Figure 2.11. There are four elements that must 


be considered: 


e function name In this case ‘append’ 
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an 


e lamida expression The abstraction 


e body of the letrec Call to the function itself or 


another letrec expression. 


e current environment 


AS with the normal function call a closure is formed and 
this is added to the front of the current environment. The 
difference is that the envircnment part of the closure 
points back to the foint where the closure was inserted in 
the current environment. This is done so the function can 
be recursively called if need be or other var parameters can 
be looked up in the environment. See Figure 2.11 to see how 
the environment for the append function is constructed. As 
stated, letrec statements can be nested Ly including them as 
the body of another letrec, thus allowing the programmer to 


cail any of the recursive functions above it in the boady of 


the last recursive function. These functions can only look 
back “and NOt forwarar. For exagples see Appendix B, Sample 
Programs. 


e Let The 'let' statement 1S Simply a sugared version of the 
lambda statement and is included for clarity. Instead of 
WEL Lag 
<call <lambda<x> <call <var sum 

<var X> 

<var x>>> <con 5>> 
the let statement allows you to write the expression in 
FiGuEe 2.122 In general, <let <<x...> <y...> <B>>> means 
let x equal y in expression B. Any number of arguments can 
be included in the lists beginning with x and y. This type 


expression is particularly valuable if you want to assign a 


user defined function (lambda expression) a hame which can 
tnen be calied at any time. Consider the doubling function 
in Figure 2.2. The doubling function could have been 


a2 
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Figure 2.11 Letrec Environment. 


accomplished using a Single lambda expression as in Figure 
2.8, but the let statement makes the function call expres- 
sion 

<call <var double> <con 2>> 
clearer. Once again, expressions can be nested by inserting 
another ‘let' statement for the B expression or even a 
‘letrec' statement. Examples are given in Appendix C, 


Sample Programs. 
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ne 


<let <<double> <lambda <x> 
<call <var sum> 
<var X> 
<var xX>>> 
<call <var double> 
<con2>>>> 


re 


Figure 2.12 Doukling Function. 


e apply The keyword ‘apply't triggers much the same action as 
'call', except the arguments to the function are placed ina 


separate list as in 
<apply <var sum> <list <con 2> <con 3>>> 


The reason this feature is included is that some of the 
useful ELC programs require that arguments be reversed 
before functions are applied to then. This can only be 
accomplished if they are placed ina 1list so a recursive 
function call can reverse the elements. There is no primi- 


tive function included to handle this situation. 


2. -FPranting Resules 


After function eval has completed evaluation, the 
result 1S ina tree form exactly like that described (or mawe 
program itself. A pcinter to the top of this tree is passed 
to procedure printval, which simply walks the tree and 


prints the informaticn found in the leaves. This is done by 


checking the tags of the cells. If a cell's tag is “Je 
there 1S no information in the cell, only head and tail 
pointers. Since it is alist a left bracket must be 


printed. At that point the left and right cells are sent to 
printval recursively until a cell other than a 'lst' cell is 
£Oundy. These cells are obviously leaves of the tree so the 


variant portion of the cell is printed. This continues 
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Mma@ieaetalle pointer Of One of the *“lIst* cells is nil. This 
signals the end of the list sca right bracket 1s printed 


and evaluation is completed. 


F. MEMORY MANAGEMENT 


1. Overview 





Throughout the executicn of a program many of the 
cells that are created become useless because they can no 
longer be accessed. Good examples of this are any of the 
binary functions included in the interpreter as primitives. 
For example, consider the sum function, Figure 2.13. Notice 
that two pointers are delivered to the sum function which 
point to the cells that contain the numbers to be added. 
After these numbers ar added, the results are placed in 
another cell. The two cells that held the intermediate 
results are no longer needed and should be returned toa 
free list to be used again Jlatter. Another example is the 
creation of new environments fcr lambda expressions before 
they are evaluated. After the evaluation of the lambda 
expression, the celis that made up the attribute value pair 
that was added to the current environment are no longer 
needed and should be returned. 

Since this is a prototyre systen, reference counting 
was chosen as the memory Management method because of its 
Simplicity and ease of installation. The model followed 1s 
outlined by MacLennan in [Ref. 6]. Reference counts refer 
to the number of pointers that a particular cell has refer- 


encing it at any one time. This count is kept in an addi- 
tional field in each cell. Refer to Figure 2.4 to see the 
reference counts for a Simple list. Reference counts must 


be incremented if additional references to cells are made. 
Reference counts in cells must be decremented if references 


are destroyed. References can be destroyed by overwriting 
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| function sun(x, eG List)*s liste 


VaE hs ist 
begin’ 
if (x®.tag=int) and {ydad.tag=int) then begin 
1f£f emp cf then begin 


new(i, in 01 
celleoune{ ‘sul. 
end 
else 
freecell; 
do begin. 
ref := Q; 
Cag := ane, : 
L@.ival := XO.1Val te) 0.aval 
end; 


aie) if (x@.tag=rea) and (y%.tag=rea) then begin 
agate oak ee Coa 
new ( 
Cel te oun Stee) 
end 
else 


| 


errormsg (‘sum') Type mismatch 
end; (nie on Sup} a 


{ 
{ 
'®a' Indicates Pointer 


Figure 2.13 Function Sun. 


| ee = 2. a OO ee 


pointers with other pointers by using an assignment state- 
ment or if the cell containing the pointer itself becomes 
1naccessible. Whenever a cellts reference count becomes 
zero it can be returned to the system because it is no 
longer accessible by the prograt. 

The interpreter manages reference counts through the 


use of four procedures: 


ei me 


e decr Decrements cell refererce counts 
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e return Returns cells to the free list 
e freecell Retrieves cells frem the freelist 


= se ee ee 


Figure 2.14 shows how function ftrassn works. 





a | 
i--->|[tag = alr | 
{ref = 1 
javal = thot] 
Cells x and y before entering ptrassn | 
ce 
ead =~ aoe oe \ Trae ca oe T | 
= fecl 
aval = ‘yes! —— = >javal = Seen 


xX := y acccmplished by function ptrassn 


! 
en  ! 


Figure 2.14 Function Ptrassn. 


First, the reference count of the cell that x points to is 
decremented. Next the reference count of y iS incremented. 
Finally x is assigned the value of jy. It 1S important that 
the assignment statement be done last so the reference count 
of x can be decremented. If not done x would no longer 
point to the correct cell and the reference count of y would 
actually be decremented. 

Procedure decr is used to decrement the reference 
counts of all cells. If a reference count of a cell goes to 
zero, decr is recursively called over the entire list until 
all cells with references of zero are found and returned to 


a freelist maintained by procedure return. 
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Procedure return links all the free cells together 
by first making them all ‘lst‘ cells and linking jee 
through the tail fields with the tail field of the last cell 
in the list being set to nil. 

Freecell is a procedure that is used to recover 
cells ‘from the freelist instead of creating trewcells by 
uSing the Pascal new facility. Each location in the inter- 
preter that needs to create new cells first checks to see if 
the freelist is empty. If it 1s not, a cell is taken fie 
the freelist instead of creating a new one. Actually a 
freelist is not necessary. Cells could be returned to the 
system using Pascal's dispose feature. Since this is a 
prototype systen, the freelist is maintained to make it 
eaSier to maintain statistics cn the number of cells being 


returned. 


Of Conventions 


ae Cell Creation 


The reference counts of cells are set to zero 
when they are created. This must be done so that when a 
program is read into the interpreter reference counts in all 
cells are set to one. To understand this, study the cons 
function which is used to build up the program list when it 
Isvinat ald wawead- Cons uses the ptrassn procedure to set 
the head and tail of the connecting cells. If a cell is 
created during readin and its reference count is set to one, 


that reference count will go to two when that cell is sent 


to’ GOs. The result is a reference count that 1S greater 
than it should be. If, however, the cell is created with a 
reference count of zero, it will be set to one when it is 


sent to cons, which in turn sets the head and tail of the 
connecting cell with the ptrassn procedure. The only 


special case that must be recognized is the cell at the very 
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top of the ~rogram tree which must be physically set to one 
after readin since it is never sent to the ptrassn 


procedure. 
ke. Local Declarations 


If locally declared pointer variables are used 
to overwrite other fointers their reference counts must be 
decremented before the procedure they are declared in is 
completed. This is done because locally declared variables 
are only visible within the prccedures they are declared in 
and then destroyed. If the reference counts they genereated 
are not decremented, excess reference counts to some celis 


are the result. 
c. Passed Parameters 


The reference counts of cells referenced by 
pointer variables passed to procedures or functions by value 
must ke incremented upon entering the procedure and decre- 
mented when leaving the procedure. It is easy to see how 
cells can be recovered in this manner. If the reference 
count of a cell 1s zero when it enters a procedure it will 
be incremented to one during the execution of the procedure 
and then decremented to zerc and reclaimed when the 


procedure is finished. 
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Tit. HUMAN INTERFACE WITH THE INTERPRETER 


A. LOADING A PROGRAS 


The interpreter is activated by first compiling or 
interpreting it using the facilities of Berkeley Pascal 


under Unix 4.2 BSD as shown in tne following example: 


Interpreted Code 


"pi' <filename of the interpreter>'.p! 


Compiled Code 


"pc! <filename of the interpreter>'.p!' 


If interpreted, an executable file named ‘obj' is created; 
if compiled, an executable file, ‘a.out' is created. The 
complied version runs much faster as seen by the time of 
execution statistics located in Appendix B, Sample Programs. 
It 1s recommended that the names of these files be changed 
to something more intuitive, such as ‘ELC' or ‘Interaae 
€UGc-. 

The interpreter can be run in interactive mode or a 
program can be executed from ancther file. Interactive mode 
should only be used for short programs or if the interpreter 
is being used as a calculator to perform basic mathematical 
computations. The big drawback to interactive use is that 
no editing can be done on programs that are longer than one 
line when typing at the terminal. If interactive mode is 
desired, the following command should be issued. Interpreted 
code is assumed in all examples. 

Oba 
The ‘it toggie tells the interpreter that interactive mode 
is desired. A logcn message with date and time apfears 
next, followed by the prompt: 


Enter Expression 
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At this point programs can te typed directly from the 
terminal and executed. To stcp execution follow the last 
Peegram with a ‘!', A statistical summary is given showing 
the number of cells created, number of cells returned to the 
systea, and time of execution before termination. 
Evaluation is successfully completed with the message 

Evaluation Ccmpleted. 
If a long program is to be executed, it 1s recommended to 
place it ina file so editing can be accomplished, if neces- 
sary. The command to interpret a program froma file is 

obj 

The interpreter then responds with a prompt to ask for the 
mame of the file where the program exists. 

File for ELC Program: 


The filename can be up to eighty characters in length. 


Be. EXECUTION TRACE 


After the method of loading the program is determined, 
the user iS guestioned if a trace is desired. A trace 
prints out pertinent intermediate resultS as the program is 
executed to help in debugging. Two examples of items 
printed out ares: each expressicn sent to function eval and 
results of looking up a var farameter inan association 
Hist . Not all expressions can be printed out because some 
structures are recursive and an attempt to print them out 
results in an infinite loop. To avoid infinite loops addi- 
tional guestions are asked about the user's desire to print 
out certain structures when there iS a possibility that they 
could be recursive. Invoking the trace facility obviously 
slows execution a great deal kut can be quite helpful in 


debugging a prog ran. 


4 


C. ERROR MESSAGES 


The best way to become familiar with the interpreter's 
error messages is to study the error handling procedure of 
the interpreter itself, Appendix C. The procedure is set up 
like a table displaying all the error messages and they can 
be easily traced back to their sources. The interpreter is 
designed to halt exection immediately upon detection of an 


error. 
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IV. CONCLUSIONS 


Ae EEPICIENCY 


Appendix B contains statistical data for several ELC 
programs. Times for program execution are given for both 
interpreted and compiled versions of the interpreter. It is 
not suprising tnat the compiled version alwayS ran much 
faster and is recommended for use. The interpreted version 
of the ELC interpreter was used throughout development, 
however, because it took half the time that compiling 
reguired. 

Profiles for all Sample prcgrams are also included in 
Appendix C. These profiles reveal hints on how the inter- 
preter could be more efficient. The data shows’ that the 
interpreter spends most of its time in the primitive func- 
tions, such as null, first, sum, etc.. Efficiency couid be 
improved by writing these functions in a lower level 
language, such as assembly language, and then linking these 
modules in at run time. This weuld not be difficult because 
these functions are very short and they are all constructed 
in the same manner, e.g., all the Boolean functions are the 
same except for the condition being checked. When the lower 
level code 1S completed for one of the modules it could be 
used as a template for the others. 

Efficiency can aiso be impreved by replacing the associ- 
ation list mechanism for looking up the value of variables. 
Since the pairiis function always adds new attribute value 
pairs to the front of the current environment before evalua- 
tion, it is clear that searching an association list is not 
always necessary because we kncw the value is at the front 


Geaetne list. A better method is to use an array to hold 
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these values and subscript them based on the number of 
scoping lines crossed in getting from a use of the variable 
to its definition. A detailed explanation of this method is 
given by MacLennan [Ref. 6]. The beauty of this method is 
that it eliminates the overhead of managing the pointers of 
the association list and the need to recursively search it, 
both very expensive operations in terms of efficiency. 
Comparisons are also made in Appendix B between two 
recursive ELC programs and their Pascal counterparts. The 
programs calculate n factorial and generate the first n 
elements of the Fibonacci sequence. The Pascal programs run 
faster, which is not Suprising because there 1S one less 
layer of software invloved in their execution. The time 
differences are less than a_ second, however, and with 
Minimal improvements to the interpreter can be improved. 
Finally, a more efficient memory managing system should 
be implemented. Pregrams executed with the memory manager 
are very slow as can be seen by comparing the run times of 
the programs listed cn the last page of Appendix B with 
their execution times without the memory manager. A mark 
and sweep system would be more efficient because the execu- 
tion of a program would not be impeded unless all the allo- 
cated memory was used. On the other hand, the reference 
counting system invokes memory management procedures’ and 
functions throughout frogram execution. Since most frograms 
will not use all allocated memgory they would run at near 
normal speed (normal speed being the time to execute a 
program without the memory manager). The tradeoff is tha 
the interpreter will have to allocate its own heap space and 


Manage it. 


Qu 


Be. STRUCTURING PROGRAMS 


ProgramS are contained in one 1ist so they can be 


written in one line, but this does not always present a 
clear view of what the program does. A natural method of 
structuring ELC programs evolved through experience. The 


method is to stack the arguments of functions under their 
calls. For example, consider this call to the primitive 
functicn cons. 
<call <var cons> 
<list a b> 
<list cd @>> 
This ccnvention becomes very useful in large programs when 
Many functions must be nested. The conditional can be 
structured as 
<ii <<call <boolean exp.> 
<True consequcEet> 
<False consegquent>>> 


Once again the arguments are stacked for clarity. 


C. FUTURE IMPROVEMENTS 


There are several improvements that can immediately be 
accomplished for the interpreter. 

The code could be made more English like. This could be 
done by writing a frcent end to translate a higher level code 
into the E1C code used in this report or by completely 
@emanmging the ELC grammar. ‘hile making more readable 
programs this feature would decrease efficiency. 

In the opposite direction the code could be nade more 
Mathematical in nature, Similar to the notation used by 
Backus in FP. The tradeoff in that case would be efficiency 
versus readability. 

A feature should also be added to allow data for the ELC 


programs to be read from the terminal or a file. Currently 
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data must be inserted in the prcgram itself. This could be 
done easily by modifying the interpreter to recognize key 
words that trigger a read operation. 

Finally, the interpreter snould be written in a More 
portable version of Pascal. Berkeley Pascal has several non 
standard features such as the alfa type that make its code 


machine dependent. 


De. LESSONS LEARNED 


Writing programs in ELC becomes easier with experience. 
This waS primarily because detailed programs are built by 
combining several smaller programs. For example, the 
program that generates the trig table is made of six func- 
tions, each a program in its jewiepag ee Once the single 
function programs are tested, they can be easily and reli- 
ably used to build other prograugs. 


ELC programs also force the user to think about protiems 


as a whole when programming. For example, when writing the 
append function one asks the question, "How would I physi- 
cally solve this precklem?". Ine answer 1s by taking one 


element at a time from one list and addirg that element to 
the second list until the first iist 1s empty. That expla 
nation 1s exactly how to solve the problem recursively and 
the ELC program reflects that. If a conventional language 
was used to soive the problem, however, the programmer would 
have to be concerned with many low level constructs such as 
asSignment statements and counter variables. After scne 
experience, dealing with problems at a higher level became 
very comfortable, particularly because many of the preblems 


encountered were solved using the same technijue. 
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APPENDIX A 
ELC GRAMMAR 


Note: * ' denotes literal ccpy. 


ee denotes superscript. (eel means one or more> 


<ELC program> ::= atomjlist|<recursive exp.>|<abstraction>| 
<application>|<let> '!' 


<recurSive exp.> 3::= '< letrec' <rec identifier> 


<lambda exp.> <body> '>! 


<body> ::= '<call * <rec identifier> <actualS> | 


<recurSive exp.>|<let> '>' 


<rec identifier> ::= <identifierw 


<identifier> ::= <letter> eel10]|<<lettem<number|letter>>eel0 
Note: Ten or less letters. Corresponds to the Berkeley 


Bascal built in string, packed array 1..10 of char. 


<abstraction> ::= '*< lambda' <bound variables> 


<abstraction body> '>'* 


<let> ::= '<let<'<bound variables> '‘'<! 
<abstraction> J<application>| 
<primitive application >| 


<conditional>|<recursive exp.> '>! 
<application> ::= '<' <lambda exp.> <actuals>eel '>' 
<bound variables> ::= <letter> eel] <identifier> eel 


“<adbstracticn body>::="<'<conditional>|<prim cali>|] 


<abstraction>'>'! 
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<conditional>::='<'tif<boolean exp.> 
<list> |<look: var>|<const exp.>| 
<prim applic |<boolean exp.> 
<list>|<lockup var>|]<const exp.>| 
<prim applic.>|<boolean exp.> 


<boolean exp.> ::= '<call <var' <boolean prim> '>>'! 
<boolean prim> ::= atom|j{nulljegqualjmemb| GT|LT|GE|JLE 
<prim call> ::= '<var" <prinname> ">? 


<primname>::=first|jrest|consjatcn]null|sumjsubt|prodjdivijsub] 


egualjlen|jmemb|jrepr|GT|LT|LE|GE 


<prim applic.>::='"<call'<prim call><list>eel| 


<lockup var>eelj<const exp.>eel '>! 


<list> ::= '< iist' <letter>eel | <letter>eel <listD>eel|] 


<number>ee <number>eel 


<list>eel <letter> eel 


<number> eel '>'* 
<lookup var> ::= '< var' <lettem|<identifier> '>' 
<const exp.> ::= '< con't <number>eel {| <list> | <letter> eee 


<actuals> ::= <list> | <lookup var> | <“constee ee a 


<lookup var> <lookup var> 
<list> eel <list> ee 1 
<const. exp.> <const. exp.> 


<letter> ::="<da..Zia..2- 
<number> ::= <digit>eel]<digit>eel '.' <digit>eel 
“digit> ss) <0ee 


<atom> :: letter}numberjidentifier 
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APPENDIX B 
SAMPLE PRCGKAMS 


General 

The statistics in this afpendix are referred to as 
compiled versus interpreted. This means compiled and inter- 
preted versions of the ELC interpreter. Also all statistics 
refer to programs run onan interpreter without a memory 
manager. Run times are much slower when the memory manage- 


ment system iS used. 
Function Append 


Purpose 
The append function concatenates ists. This is 
different than the jfrimitive cons which makes its’ first 


argument the first element of another list. 


Append could be useful if the argument lists were large 
databases that had to be combined. This 1S common practice 
in database work where many small databases are combined to 


form a whole. 


lta 


ource Code 


<letrec append 
<lamcda <L M> 
mea <eall <yar nuli> <var L>> 
<var M> 
Sea il << varicons> 
“Gale aVaresulDb>GvareL><con 1>> 
<call <var append> 
<call <var rest><var L>> 
<var W>> DD>>>D 
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<call <var aprend> 
<list <con g><con h> <cor j>> 
<list <con g> <con ©r>7acene 


Results cf Append Function (Comfiled Interpreter) 

Fnter Expression 

<a, b, c, d, e, £, g, h, 1, Je J, 1, De MN, OF Pe Ge Ty S, t? 
Evaluaticn Completed 


WK eae ae aK ie ok ake a i a a oo ok ae ok ok a Ko ak ok ok oe ok ok ok ok i ok eK i ok Ke ok ok ok ok ok ok ok ok ok & 


Statistics 
System time vas 183 milliseconds 
User time was 616 mwilliseconds 
| Module Cells created | 
ae ee | 
[depr an BY i 
Jcons 4O2 i 
{| ceadiden 57 | 
jreadint 1 ] 
}letrec 6 i 
jnuil 11 i 
Total cells Dom 


Results of Append (ELC Interpreter interpreted by Berkeley 


Pascal) 

Enter Expression 

<a, b, c, d, e, £, g, he 14 Je Je Le De De Of Po Ge Tey S, t? 
Evaluaticn Completed 


WK eK eo oe ok a oe eo oko ok a oe a oe a Ko a kK KK 
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Statistics 


System time was 366 wtilliseconds 
User time was 6600 ailliseconds 

{Module Cells created | 

i ee oe ae | 

{dcprinm 84 | 

{cons 4Q2 | 

|ceadiden 57 | 

jreadint 1 

jletrec 6 | 

oad 1 11 | 

Total cells 561 


Profile for append function 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testi11.f£ 

Profiled Thu Dec 13 09:05 1984 


Line Count 
1 1 func 
33 ZA printval 
36 505 cellcount 
63 1477 nullp 
84 Bl2Z3 TES t 
94 1692 rest 
22 402 cons 
Zoo 10 sub 
oo9 190 atomp 
547 1477 nullp 
564 11 pa 
eo 94 assoc 
643 a8 pairlis 
663 21 printval 


onl 


a2 
704 
714 
770 
827 
835 
843 
867 
SH 
880 
831 
882 
884 
947 
1012 
1041 
10938 
Lis 
1239 
1261 


83 
108 
25 


19 
Zo, 
a? 
83 
11 
lio 
ae 


190 


va 
139 
41 
2 
28 


ae 


readval 
nonblank 
readlist 
readint 
Oe ine 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applypria 
apply 
epi an 


ceadfname 


a —_— 


Takes any list as an argument, reverses the elements of 


the list and places them in ancther list. 


= ee EE SS ee 


Reverse 1S used frimarily as a sub-function for larger 
programs. It is the nature cf recursion that many times 
result iists are constructed in reverse order. The reverse 


function is then needed to regain the proper order. 


Discussion 

There are two versions of reverse included, reverse and 
revaux. Reverse makes use of the primitive ‘conr' to Euild 
the result list where revaux utilizes a null list, (<>), to 
build the result list using a series of calls to ‘cons. It 
is interesting to study the differences in efficiency 
Eetween the two cunctions. Reverse is faster and uses less 
memory. The reason is because the primitive conr was 
included in the interpreter, which shortens the number of 
steps reguired. Whether time and memory Savings justify 
including another primitive in the interpreter depend on how 
often itis used. The use of the reverse function is 
Minimal and would not justify including a primitive only for 


its use. 
source Code 


<letrec reverse 
<lambda <L> 
<a << Ca i <var nu@l> <var L>> 

<con <>> 

Sea ll <var Conr 
<call <var reverse> 

<call <var rest> <var L>>> 

GGa eva beso e Vail <COn 1>>>>>> 


a3 


<call <var reverse> <list a b ¢ d @€ £9) 259 


Results of reversing a ten element list (Compiled version) 
Enter Expression 

“je le Ne dD, £, Gp ec aa 

Evaluaticn Completed 


eK ee ee a a KK i Ke oo oe ok ok ok ok ok ok ke 


Statistics 
Syster time was 100 milliseconds 
User time was 516 milliseconds 
| Module Cells created | 
Pn RR SS eee | 
{dcprinm 84 i 
icons a25 | 
jceadiden 42 i 
jreadint | 
Jj letrec 6 | 
Pinu) 11 i 
jconr 9 l 
Total cells 476 


Reversing a ten element list (interpreted) 
Enter Expression 
<j, ly Of, Oy £, €3 4, ore eee 


Evaluation Completed 


A ee a oe i ee KK eo eK Ko KK eK OK 


Statistics 
Syster time was 316 milliseconds 


User time was 5716 milliseconds 


54 


jdcprin 84 i 
jcons 323 | 
| ceadiden 42 i 
jreadint 1 | 
jJletrec 6 | 
ru 1 2 11 | 
Jjconr 9 | 
Total cells 476 


meeiile o£ reverse function 


Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testll1.f5 
Profiled Thu Dec 13 09:08 1984 
Line Count 
1 1 func 
35 17 printval 
36 420 cellicount 
63 1349 hnullp 
BY 2861 first 
94 1545 rest 
122 328) cons 
137 10 Cong 
Zoo 10 sub 
B39 169 atomp 
547 1349 mu ip 
564 11 nud 
ole 8 3 assoc 
643 Ze pairlis 
663 11 Dini Vail 
702 67 readval 


55 


704 
714 
770 
827 
S3'D 
843 
867 
Sie 
880 
881 
882 
884 
947 
101712 
1041 
1093 
1198 
239 
1261 


91 
24 


167 
ZNO 
42 
67 
11 
13> 
52 


169 


17 
135 
4 1 
a2 
28 


hnonblank 
readlist 
readint 
digit 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
eviis 
applyprin 
apply 
Gepr in 


readfname 


Function Revaux 


Source Code 


<letrec revaux 
<lambda <L M> 
Sipecccail <var null> <vazt L>> 
<var M> 
<call <var revaux> 
<call <var rest> <var L>> 
<call <var cons> 
<call <var sub> <var L> <con 1>> 
—vat > 
>>>>> 
<call <var revaux> 
Geist a b ¢ ae f gh ig 
<con <>> >>! 


Results of Revaux (10 element list, compiled) 


Enter Expression 


met, ti, J, ft, €, d, C, b, a> 
Evaluation Completed 


AK Xk ke a ok ie ok i ok ke kk a ik ke oe Kk ok i aK ie ok i a ek oo ao ac i ei ko Kk ke aK 


Statistics 
System time was 166 milliseconds 
User time was 566 milliseconds 
j Module Cells created |] 
— oe oo we 
}dcprinm 84 | 
jcons J05 [ 
{readiden 47 | 
jreadint 71 \ 
{jletrec 6 | 
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Total cells 532 


Results of revaux (interpreted). 
Enter Expression 


<j if Be Gg, £, 794d, c, ee 
Evaluaticn Completed 


He He ee ke ie ee ee a KK KK KK KK KKK KK KKK KKK KKK KKK KK 


Statistics 
System time was 366 milliseconds 
User time was 6333 milliseconds 
| Module Cells created | 
[----S=5  “*) [35 ann | 
[dcprim 84 | 
jcons 383 | 
| ceadiden 47 | 
jcreadint | 
{letrec 6 | 
inwdd at | 
Total celis 392 


Profile of Revaux 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testil1.f 

Profiled Fri Dec 14 22:46 1984 


Line Count 
1 1 func 
ess 11 Priva 
36 476 cellcount 
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63 
84 
94 
122 
258 
bso 
547 
564 
oo 
643 
oe 
7O4 
714 
770 
827 
635 
843 
867 
oa 
880 
881 
882 
884 
947 
101z 
1041 
O93 
1198 
39 
1261 


1466 
3104 
1672 
a3 
10 
180 
1466 
11 
94 
33 
74 
100 


146 
a2 


180 


11 
146 
4 
OZ 
28 


5g 


hullp 
first 
rest 
cons 
Sub 
atomp 
hnullp 
soot ak 
assoc 
pairlis 
readval 
nonblank 
readlist 
readint 
agit 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
Gey een 


readfnane 


Map Functional 


Pur pose 

Functionals are functions that return other functions as 
results. The map functional allows the user to take any 
unary function and apply it to the elements of a list, 
returning a list of the results. In this example, the sine 


function is mapped across a list of ten angles. 


Map could be used extensively in business applications. 
An example would be an employee database where the same 
operations must be accomplished on many different records. 
If salaries were increased acrcss the board, a version of 


map could be used to achieve this. 
source Code 


<letrec map 
<lambda <f> 
<lambda <L> 
<if <<cali <var anuli> <var yee 
<con <>? 
<call <var cons> 
<call <var © <call <var first><var Gee 
<call <call <var map> <vaEee 
<call <var rest> <var L>>>>>>>> 
<call <cali <Var Map? <Vaecie 
<iist <con 45> <con 6U> <conmg0l a 


Results of map Functional (map sine) Compiled 
Enter Expression 

<0.707107, 0.866025, 1.000000, 0.913545) 5055 -27 
0.342020, 0.422618, 0.275637, 0.939693, 03 7 ae 


Evaluation Completed 


BOR OK OK Go ii oka ik doko doko i koko kk kkk ke kok kak ook ak ke ke ake ak ok 


6 0 


Statistics 


System time was 216 mililiseconds 
User time was 683 milliseconds 
jModule Cells created | 

aa 
jdcprin 84 | 

Jcons 445 | 
jreadiden 52 | 
jcreadint 10 | 
jletrec 6 | 

jeval 11 | 

joull 11 | 

{sing 10 | 

Total cells G22 


Map sine (interpreted) 

Enter Expression 

mee 07107, 0.866025, 1.000000, 0.913545, 0.573576, 
meme z2020, 0.422618, 0.275637, 9.939693, 90.999391> 


Evaluation Completed 


FE RE Ie i a a ae eK ee 2 ee ee 2 ee ee eK ek a a ee a ee KK aK KK i KK KK OK Kk KK KOK 


Statistics 
System time was 416 milliseconds 
User time was 7666 milliseconds 
|Module Cells created | 
<> “oo 
|dcprim 84 | 
Jcons 445 | 
| ceadiden 52 | 
|readint 0 | 


61 


jletrec 
jeval 
jnull 


jsinp 


Total cells 


Profile for map functional 


Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 test11.f5 
Profiled Thu Dec 135s icce 
Line Coline 
1 1 
33 11 printval 
36 5s cellcount 
63 1666 hullp 
BY Bono first 
94 15S rest 
122 445 cons 
411 10 Sinp 
a), Ze atomp 
547 1666 nullp 
564 11 TueL 
SS 104 assoc 
643 yy pairlias 
663 11 printval 
702 103 readval 
704 144 nonblank 
714 4 readlist 
77.0 10 readint 
827 217 di-gage 
S25 Zig letter 
843 a2 readident 


6 2 


867 
aug 
880 
881 
882 
884 
947 
1012 
1041 
9s 
1198 
239 
1261 


103 
11 
167 
oe 


ee 


11 
167 
5.1 
12 
28 


os 


readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
dcprim 


readfname 


(rx 
fv 
tr 
< 

| 
by 

LQ 
rH 
= 
pb 
Q 
ct 
be: 
O 

b 


Purpose 

The halving function takes a list of numbers and returns 
a list of all the elements divided in half.There is really 
no practical application for this function but it demon- 
strates the use of the 'bu' functional which changes a 
binary operator to a unary operator. If you divide a list 
of integers by 2 it is more efficient to fix the second 
operand of the division instead of evaluating 2 as a 


constant each time the division takes place. 


<letrec map 
<lamEda <f£> 
<lambda <L> 
€iit <<cali <var null> <var L>> 
<COlme 
<call <var cons> 
<call <var f> <call <var first><var fee 
<call <call <var napoe<varere 
<call <var rest> <vart L>>>>7 ee 
<let <<bu> <<lambda <f£ k> 
<lamkda <x> 
<call <var f> <var K> Xvarlw 
<let <<revf> <<lampbda <f> 
<lamtda <x y> 
<call <var D <var yo “Van sx>2 
<e a 
<Call “var map 
<call <var bu> 
<call <var revf> <var divi>> 
<cOujeZ- 
<list <con 4> <con 6> <con 8> <con 18>> 
oe 


Results of halving function (compiled) 


64 


Enter Expression 
A; 14, 15> 


Evaluaticn Completed 


WK fe 2K KK oe ee ae a 2 a ke oe a a a eK oe KK KK KK KK OK KK KKK KKK KK KK 


Statistics 
System time was 183 milliseconds 
User time was 966 milliseconds 
|] Module Celis created | 
“As i. TTT | 
jdcprin 84 | 
{cons 674 | 
| creadiden 87 | 
Jreadint 11 i 
jletrec 6 | 
jeval 15 | 
Jnull 11 | 
naa Vv 1 10 
Total cells 898 


Results of halving (interpreted) 

Enter Expression 

< 2 Bee 4, ae 0, { e 12, 
2, 14, 15> 


Evaluation Completed 


Ae AE eK KK oe ek aK a kK KK a eK a kK a oo ok oo oo KK oo KOK 


Statistics 


Syster time was 483 milliseconds 


65 


Jser time was 


{cons 
|readiden 
|creadint 
jletrec 
jeval 
Phe 


Va aver 


Total cells 


10183 milliseconds 


674 


Profile for halving £unction (usevor snr 


Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
wed Dec 12 12:48 1984 testI11.f 
Profiled Thu Dec 13 10:03 1984 
Line Count 
1 1 func 
33 11 printval 
36 842 cellcount 
63 205i) nudes 
84 4420 first 
94 2494 rest 
Ze 674 cons 
Bas 10 diva 
oe 305 atomp 
547 2, nullp 
564 11 nae 
Dee 166 assoc 


66 


643 
663 
702 
704 
714 
770 
8 2yf, 
835 
843 
867 
eng 
880 
881 
882 
884 
947 
1012 
1041 
1093 
17198 
239 
1261 


50) 
4ug 

87 
168 


50 


11 
240 
51 
25 
28 


67 


pairlis 
printval 
readval 
nonblank 
readlist 
readint 
Gag it 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applypriag 
apply 
dope im 


creadfihame 


Collating function 


Ur pose 
Collate takes two sorted lists and merges them into one 


sorted list. 


Sorting and collating are standard office functions that 
benefit from automation. A scrting function needs to be 


combined with collate to initially sort the sublists. 
source Code 


<letrec collate 
<lambda <L M> 
<if <<call <vVar mulib> <var bee 


<var MD> 
<if <<ecall <var nulld> <varse 
<var L> 


<tee<<eall <var LE 
<call <var sub> <var L> <con 1>> 
<call <var sub> <var M> <con ive 
<call <var cons> 
<call <var sub> <var L> <coniee 
<call <var collate> 
<call <var rest> <var L>> 
<var U>>> 
<call <var cons> 
<call <var sub> <var M> <con 12 
<call <var collate> 
<var L> 
<call<Vanwresr 
<var M>>>>>> >> DDD 
<calli<var collate><list 2 5 6 € 12><1iSt 3 3 6057) 0 


Result of Collate Function, Compiled 


Enter Expression 


6&8 


Evaluation Completed 


Jo ok ao ok kok kk okok ok kok ak lok ko ka gk kkk kk ak kok 3k kk kk ca ok 


Statistics 

Systenr time was 166 milliseconds 
User time was 1066 miliiseconds 
{| Module Cells created | 
—- So so—oTorce | 
jdcprim 84 | 

Jcons Jo | 

| ceadiden 80 | 
jcreadint 15 l 
jletrec 6 | 

Jjnull 22 

ie 10 

Total cells 748 


Collate function (interpreted) 

Enter Expression 

< cy a7 6 a3 6, 6, ye 
8, a; Oy 1z> 


Evaluation Compieted 


FER AK OK ke 2 ee ie 2 ok 2 ok i ie ke 2 ee ke ok ie ek ie 2k i eae ic ok ok 2k ee ok ee ok a ok ok oo ie ek ok eo ok kok 


Statistics 
System time was 633 miljliseconds 
User time was 11316 milliseconds 


69 


|dcprin 84 ] 
}cons 531 | 
|} ceadiden 80 | 
|readint 15 | 
Jletrec 6 | 
[null Zi 
(iE 10 l 
Total cells 748 


Profile for collate function 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testl1.f 

Proziiled Thu Dec 13 10:07 1984 


line Count 
1 1 func 
Ss 12 Prin twat 
36 69 2 cellcount 
63 2566 mip 
84 32 0 first 
94 292a rest 
122 531 cons 
258 30 sub 
384 10 LEp 
394 10 i 
Ss, 335 atomp 
547 2566 Aeilap 
564 Ze null 
59:9 166 assoc 
643 sea pairlis 


70 


663 
102 
704 
714 
770 
oe 
835 
843 
867 
879 
880 
881 
882 
884 
947 
1012 
1041 
1O33 
1198 
Zoo 
1261 


fz 
150 
205 
ie) 
15 
So 
427 
80 
150 
a2 
260 


260 
82 
93 
28 


an 


printval 
readval 
nonblank 
readlist 
readint 
digit 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 

de pr rn 


readfnane 


Composition allows the output of one function to act as 


the input to another function. 


Practical Application 

Composition could be used in business applications as a 
way of guerying a database with multiple conditions. Fors 
example, utilizing the filter function, a user could ask for 
records of employees that satisfy a certain condition and 
then apply another call to filter with a further refined 
condition such as all employees in department 5 that nake 
more than two thousand dollars a week. In this example 
mMapSin and reverse are composed. The composition function 
is named dot to correspond to Backus's FP language which 


actually includes this as an operator in the language. 


Source Code 


<letrec reverse 
<lanbidas<re 
<if <<calie<var nui l> <varee 

<con <>> 

<call <var conr> 
<call <var reverse> 

<calil <var rest> ean 

<call <var sub> <var boe<cons lye. 


<letrec mapsin 
<lambda <L > 
<i£f <<cali <var null > <var tee 
<con <>> 
<call <var cons > 
<call <var sin > 
<call <var £1ESt C<var yi. 


<call <var mapsin > 


eZ 


SCaude<aVar Lest > 
<Val LP>>> S22- 
<let <<dot> <<lambda <f£1 £2> 
<lambda <x> 
<call <var £1><call<var £2><var x>>>>>> 

eal 1 

<call <var dot> <var mapSin> <var reverse>> 
<list <con 45> <con 60> <con 90>> >>>>>! 


Results of compositcn (compiled) 


Enter Expression 
mero 00000, 0.866025, 0.707107> 


Evaluation Completed 


AK i ie Fe He AK ak ae ak ae a ik ok 2 ie ak oe ie ak i i ak 2 3 IK ke OK ie ek ie ie ee aK oe 2k 2 eK OK 2 ok 2k oe eK OK kk i ok Kk 


Statistics 

Syster time was 250 miliiseconds 
User tifte was 616 milliseconds 
{Module Cells created | 
aes 8 = oA 
{dcprim BY | 

}cons B05 ( 
jreadiden 85 j 

| ceadint 4 
jletrec 12 ] 

jeval 2 | 

jnull 8 | 

jconr Z 

|sinp 3 | 

Total cells os) 


73 


Results cf compositon (interpreted) 
Enter Expression 
<1.000000, 0258660253 0-707 107> 


Evaluation Completed 


JOCK Ok ok gk ia ia kk i gk ok ik doi kak tok ek ok lak teak 


Statistics 


System time was 583 milliseconds 
User time was 5966 milijiseconds 
{Module Cells created | 
peers ae ee 
fecprian 84 | 

|cons B25 j 
|readiden 85 | 
|readint 4 
}letrec 12 \ 

jeval 2 | 

nue 8 | 

[CONE ie | 

Sinn 3 | 
Total-cebie DoS 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 


wed Dec 12 12:48 1984 testi11.f 
Profiled Mon Deel?) 18:51 519564 


Line Count 
1 1 EUG 
33 4 pFIntval 
36 Bae celiccount 
63 $88 nail 
BY Z111 first 


74 


94 
V2 
lee 
Ze 
4171 
539 
547 
564 
ooo 
643 
663 
Oe 
704 
714 
770 
827 
835 
843 
867 
879 
880 
881 
882 
884 
947 
1012 
1041 
1093 
1198 
1239 
1261 


1148 
Soo 


123 
988 


61 
2 


154 
219 
65 


a0 7 
466 
85 
154 


96 
39 


Nr 


96 
29 
39 
28 


TD 


rest 
cons 
cons 

sub 

Sinp 
atomp 

gu age 
null 
assoc 
pate ls 
printval 
readval 
nonblank 
readlist 
readint 
dag a 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprim 
apply 
dcprin 


readfname 


Purpose 
This program takes a finite set of text and creates a 
freguency table of the words used and how many times they 


are used. 


This program could be useftl if extended to recognize 
patterns in large blocks of data. Also, in military intel- 
ligence work, it could be vaulabie to see how Many times a 
persons name appears in a newspaper to gain some insight 


into how important they might Le. 


<letrec dom 
<lambda <L> 
<if <<caii <vaxg null> <var L>> 
<COn = 
<call <var cons> 
<Gouble<Val fire 
<call <var first> <var a7 
<call <var dom>d 
<call <var rest> 
<var LY>>>>>> 
<letrec isfinfunc 
<lambda <T> 
<if <<call <Yar null> <varaee 
<con true> 
<1t “<<Cal evar euua > 
<calil <var len> 
<call <var £irst> <Vabeae 
<con 2>> 
<if <<call <var equal> 
<cali <var memb> 
<call “vane cies 
<call <var dom> 


ae 


<Vdiege 1 >? 
<call <var rest> 
<call <var dom> 
<Vab 1>>7>2 
CCOneeEue>> 
<con false> 
<call <var isfinfunc> 
<call <var rest> 
<var T>>>>> 
<con false>>>>>> 
<letrec overlay 
<lambda <T pr> 
<if <<call <var equal> 
Seal (val iSitinnune> <var T>> 
<con truer> 
<if <<cail <var nuil> <var T>> 
ScallecVal GCOns> “var pr> <con <>>> 
<if <<call <var equal> 
<call <var first> <var pr>> 
“Gale “Var £irst> 
<CalGavar Libs t> 
Valk 122>7 
<call <var overlay> 
<call <var rest> <var T>> 
“War pL 
Seal oval scons > 
Scaiecvial fLESt> <var >> 
<call <var overlay> 
<call <var rest> <var T>> 
“Val pDi2 >> >>> 
“Cone lnot friune>> >> 
<letrec lookup 
<lamtda <T k> 
pe <<Cadil <Var null> <var T>> 


<con notfound> 


a 


<if <<call <var equal 
<var k> 
<call <vart freee. 
<call <var first> <var 7>37e 
<calli <var firs 
<call <var rest> 
<call <var first> <vaE Poo 
<call <var lookup> 
<call <var rest? <van ae 
<var k>> 
>> >>> 
<let <<occur> <<lambda <w F> 
<ift <<call <vamecua 
<call <var memb> 


<var wo> 
€<call <var dom> 
<var F>>> 


<con true>> 
<call <var lookup> 
<Van et 
<Var/w7 
<con 0>222> 
<letrec freq 
<lambda <T> 
<1f <<call <var nuli> sya! 
<con <>> 
<call <var overlay> 
<cail <var ireu 
<call <var rest> <vVari i. 
<ca ll <varweons> 
<call <var fipst> “var ee 
<call <var cons> 
<call <var sum> 
<call <Vdi occur, 
<call <var"fligse, 


78 


<“vVare 
“Call <vab  LEeq> 
<call <var rest> 
<var T>>>> 
<con 1>> 
Gece <> >>7>>> 
Seal] <var freq> 
“call <Var Lepr> 
<finset This is the block of text>>>>>>>>>>! 


Results of frequency table generator (compiled) 


Enter Expression 


<<text, i 

a Ol, 1> 
mec 1lock, 1> 
, «the, 1> 
«1S, 1> 

mec This, i> 
> 


Evaluaticn Completed 


WK Fe ok KK eK KK eK eK eo eK KK eK Ke eK KK Ok kK 


Statistics 
Syster time was 4916 milliseconds 
User time was 157966 milliseconds 
|Module Cells created | 
ete ooo l 
j|dcprin 84 | 
{cons 49559 { 
{ceadiden 313 \ 
{readint 3 | 
jletrec 80 | 
jJeval 1 


19 


jmemer 666 | 
jegual 1806 | 
|sup 255 | 
jlen 411 | 
Total cells 57682 


Results of frequency table generator (interpreted) 


Enter Expression 


<“ctext, 1> 

ae OL, 1> 

7 <DlOek, 1> 

~ SEne; 5: 

je 1S* 1> 
<Tbis; 1> 

> 


Evaluation Compieted 


EK eK oe 2 i 2 eo 2k ee ae a oe aie oe ee ae KK eR RK RK Oe Ke oo ok eK KK KK 


Statistics 
Systema time was 23900 milliseconds 
User time was 1990866 milliseconds 
| Module Cells created | 
[SaaS ra ae ee ye eee 
{dcprinm 84 | 
j|cons 49559 | 
| ceadiden 543 | 
jreadint 3 | 
{letrec 30 | 
jeval 1 | 
|null 4554 
jmemr 60 | 


80 


Total cells 


Profile for frequency table function. 
Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testI11.fF5 

Profiled Thu Dec 13 10:20 1984 


Line 


1 
33 
36 
62 
63 
84 
94 

ae 
158 
273 
Z29'1 
So 
547 
564 
276 
So 
og 
643 
663 
LOZ 
704 
714 


Count 
1 func 
9 printval 
57626 cellcount 
1806 equal 
66 4983 HuieL D 
1404922 first 
743026 rest 
49559 cons 
255 Sum 
2267 equalp 
1806 equal 
10799 atomp 
664983 nullp 
eo null 
123.3 lenp 
411 len 
36403 assoc 
10367 pairlis 
ye, printval 
oO readval 
744 nonblank 
z14 readlist 


8 1 


770 
a2 
ee 
843 
867 
873 
880 
881 
882 
884 
947 
10 12 
1041 
1061 
1071 
1083 
Loge 
1198 
1Z53 
VZ6u 


1333 
1709 
Sis 
530 
6360 
72205 
25013 


70799 


6360 
Dao 
VAS 
666 


18804 
2164/3 
28 


82 


readint 
digit 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
membp 
memb 
isfinset 
apply »)rin 
apply 
dcprin 


readfname 


mactorial function 


— —_ ae ee —_— ee ce 


Purpose Computes the factorial cf n, where n = 0, 1, 2, ..- 


Discussion 

Factorial functicns written in ELC and Pascal have been 
included to compare the relative efficiency of the inter- 
preter versus a conventional high level language compiler. 
Factorial is computed for n = 1 to 10. the results are not 


suprising in that the Pascal version is much faster. 


Source Code (ELC) 


<letrec fact 
<lamrkEda <n> 
<if <<call <var egual> <var n> <con 0>> 
<con, i> 
<call <var prod> 
<var n> 
“ea di <Vakr tac t> 
<call <var subt> <var n> <con 1>>> 
2 >> 
Meaqil <var fact> <con 10>> 


Pesults of ELC factorial function for n = 1..10 
fact (0) 
Enter Expression 

1 


Evaluation Completed 


AE Ree 2 a I ee ee kee a oe ae ie ie oe ae eo i ie ie oe ee oe ok ok ek Ko a kK 


Statistics 
Syster time was 83 milliseconds 
User time was 233 nilliseconds 
jModule Cells created ]} 


8 


die oie am 84 


| 
Jcons ZZ | 
| ceadiden 30 | 
jcreadint | 
jletrec | 
jequal 7 | 

Total cells S29 

fact (1) 


Enter Expression 
1 


Evaluation Completed 


ee KK oe oe oe oe i i 2 a oe ok oo eK Ae ee KK KK KK ok 


Statistics 

System time was 83 milliseconds 
User time was 266 milliseconds 
| Module Cells created | 

[RSS ots- “ ieee eee as | 

die eee arn 84 | 

| cons ale | 

] ceadiden 30 | 
jceadint 4 | 
jletrec 6 | 

jegual 2 

jsubt 1 | 

j prod 1 | 

Total cells 340 
fact (2) 


Enter Expression 
Z 


Evaluation Completed 


84 


eo oe eo a 2 eo ok 2 ok ok kK KK a KK OK eK ek KK oo ko ok 


Statistics 

System time was 133 milliseconds 
User time was 233 miliiseconds 
{Module Cells created | 

es) 0l0lUlUlClCUCUC l 
jdcprin 84 | 

Jcons 222 i 
|readiden 30 | 
jreadint 4 | 
jletrec 6 i 

jequal 3 i 

jsukt Z i 

j prod Z i 

Total cells 3o8 
fact (3) 


Enter Expression 
6 
Evaluation Completed 


fk a ko kkk ak dokok kk ok ak kok kkk kok kok ok ok ok ok kok ok kkk kok kok okakok okoko ok fk kak kak kok 


Statistics 
Syster time was 133 milliseconds 
User time was 266 milliseconds 
j|Module Cells created | 
> aan ae | 
feeprin 84 | 
jcons Zoe | 
jceadiden 30 i 
jreadint 2 


85 


Total cells 366 


fact (4) 
Enter Expression 
24 


Evaluaticn Completed 


BE Ce ee ac ee a ie eke ee ec ee ke ae ie eke ee ok eee i ok oe oe ok ok ok ok 


Statistics 

Syster time was 216 milliseconds 
User time was 283 milliseconds 
iModule Cells created | 

poo --—-— | Sess oe | 
|dcprin 84 ] 

{cons 242 | 
lreadiden 30 | 
jreadint + | 
jletrec 6 | 

[equal 5 

{subt 4 ] 

| pEod 4 | 

Total cells 373 
fact (5) 


Enter Expression 
120 


Evaluation Completed 


co Soko kok kk go dak iioilok oki kaki kok kk doko ck kok oki ke koko kk ok & 


86 


Statistics 


System time was 116 milliseconds 
User time was 350 milliseconds 
| Module Cells created | 
PSS 2 0 DT STS | 
|dcprin 84 | 
jcons Ze | 
| ceadiden 30 | 
jcreadint % | 
jJletrec 6 | 
jequal 6 
Jsubt 5 i 
| prod 5 j 

Total ceils S92 
fact (6) 
Enter Expression 

#20 


Evaluation Completed 


AK HK Kok 3K ok IK a ok ae oo KK ok KK KK oo KK KKK eK ok eo KK KK KK KK KK KK KK KOK KKK 


Statistics 
System time was 116 milliseconds 
User time was 416 milliseconds 
jModule Cells created | 
ar | 
jdcprim 84 | 
jcons 262 i 
J readiden 30 j 
jreadint i 
jletrec | 
Jequal | 


svi 


Total cells 405 


fact (7) 

Enter Expression 
5040 

Evaluation Completed 


We ee ie oe ae oe oe ee ee oe eo etek i ee Re ee Oe eo a oe oe eK ok ok ok ok 


Statistics 

System time was 133 milliseconds 
User time was 400 milliseconds 
{Module Cells created | 
Pa ec eer tetra oo nie | 
j/adcprin 84 i 
jcons 272 | 
{ceadiden 30 
{ceadint 4 | 
| letrec 6 i 
jequal 8 i 
jsubt 7 i 
| prod 7 | 

Totai cells 418 
PACT atc) 
Enter Expression 
40320 


Evaluation Completed 


He oe eke ake oe oe oe oh oe ae ake eae ee eae ie ae eA ake ae ae oe ae a ee oe A ae ie a ake eK A eo KK eK 


Statistics 


System time was 133 milliseconds 


83 


User time was 433 milliseconds 


— <a ee ee ee ee eee ee ee ee ee ee ee ee ee em ee ee ee 


|Module Cells created | 
eres 0hlUlmUmUmUmUCtC~C~S eee | 
|dcpria 84 | 
icons Bow | 
jceadiden 30 | 
jreadint 4 | 
jletrec 6 | 
Jeqgual 9 | 
Pou pt 8 | 
| prod 8 i 
Total cells 431 

fact (9) 

Enter Expression 

362880 


Evaluation Completed 


AE AK eK 2 a a KK i KK aK KK KK RK KK A KK KK KK KK OK KK KK OK KK OK 


Statistics 
Syster time was 150 milliseconds 
User time was 450 milliseconds 
|Module Cells created | 
BI Re l 
{|dcprin 84 | 
|cons Zee I 
{|readiden 30 
jreadint [ 
[letrec | 
jequal 10 i 
Jsubt l 
|] prod | 


89 


<< cee ee ee ee eee ee ee ee es ee ee ee ee eee 


Total cells uuy 


fact (10) 
zsnter Expression 
2628800 


Evaluation Completed 


Re ee i Re a ec a ee ok ee ee a CK ie ok oe ok 


Statistics 
System time was 183 milliseconds 
User time was 450 miliiseconds 
{Module Cells created | 
[== >>> | Seen 
{|dcprin 84 
Jcons B02 | 
{jceadiden 30 | 
{readint 4 
jletrec 6 | 
jegual 1 | 
fsukt 10 | 
| prod 10 | 
Total cells 457 


90 


Factorial function written in Berkely Pascal 
Source Code 


program fact(input, output) ; 


var ans,n:integer; 


function factorial (n:integer) :integer; 


var fact:integer; 


begin 
if n = 0 then 
Pace, s= 1 
else 
fact := n * (factorial (n - 1)); 


mactorilal -3= fact; 


end; {fuaction factorial} 


begin 
writeln('Input ns: '); 
readin (n) ; 
ans := factorial(n); 
writeln (ans) ; 
writeln('System Clock ',sysclock:10 ,* millisec') ; 
writeln('User Clock clock ale, * mrilisec")= 


end. {Program fact} 


Results of factorial function in Berkeley Pascal, n= 1..10. 


Input n=0 

1 
System Clock Soll 1S eC 
User Clock 16 millisec 
Input n=1 

1 
System Clock 33 millisec 
User Clock QO millisec 


a1 


Input n=2 


Z 
System Clock 
User Clock 
Input n=3 

6 
System Clock 
User Clock 
Input n=4 

24 


System Clock 


User Clock 


Input n=5 
1Z0 
System Clock 


User Clock 


Input n=6 
720 
System Clock 


User Clock 


Input n=/7 
5040 
System Clock 


User Clock 


33 


a3 


2 


33 


23 


milliséeéc 


millisec 


millisé€éc 


millisec 


millisec 


millisec 


milliséc 


millisec 


ni J lisee 


millisec 


6 Mid basee 


millisec 


oi 


Input n=8 
40320 
System Clock 

User Clock 


Input n=9 
Bol 0 EO 
System Clock 

User Clock 


Input n=10 
3628 800 
System Clock 

User Clock 


PEOtile for ELC factorial function 


33 


33 


66 
16 


millisé€éc 


millisec 


nit is ce 


millisec 


miliisec 


millisec 


Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 1712 12:48 1984 
Profiled Thu Dec 13 09:56 1984 


ine 


1 
Ss 
36 
62 
63 
84 
94 

122 
183 
208 
7G 
291 
539 


Count 


1 
4 
401 
11 
954 
2064 
17132 
302 
10 
10 
11 
11 
150 


test11.f5 


a 


func 

PEantval 
cellcount 
equal 
nullp 

feo Site 
rest 
cons 
subt 
Prod 
equalp 
equal 


atomp 


547 
59 
643 
663 
702 
704 
714 
741 
770 
827 
835 
843 
867 
879 
880 
881 
882 
884 
947 
1012 
1041 
1093 
1198 
139 
1264 


g54 wae 
13 assoc 
22 Dd esis 
1 printval 
56 readval 
78 nonblank 
22 readlist 
0 readrea 
4 readint 
23 digic 
163 letter 
30 readident 
56 readval 
11 evcon 
1715 evlis 
42 apply 
1 letrec 
150 eval 
1 letrec 
11 evcon 
115 evlis 
31 applyprin 
W2 apply 
28 dcprin 
1 readfname 
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P2oponacci Sequence Generation Frogqram(No ‘let* statement) 


Ito 


Pur pose 
This program generates the first n elements of the fibo- 


nNacci sequence. 


Discussion 

This function is educational in that it shows how effi- 
ciency of ELC programs can be improved through the’ use of 
the ‘let* statement. The definition of the Fibonacci 


sequence is: 


£ib(1) <1> 
fib (2) <1 1> 
meen = 3, 4,2.) = 
Sons st eboin- bestioe i) + {Eib(n—Z) sub 2)), £ib(n-1)), 


where sub 1, 2 means subscript. 


The tine consuming part of this function, when written in 
Pee, 1s Calculating fib of n-1 three times to find the next 
element of the seqgquence.This can pe avoided by uSing a let 
Statement to caiculate f1ib(n-1) only once for each itera- 
ON . The system time taken toc generate £1b(10) when using 
the let statement was approximateiy .2 seconds compared to 
13 seconds when a ‘let' was not used.This in not suprising 
Since when not using the 'let*" the time of execution will 
increase exponentially as n increases. 

Notice also that due to the nature of recursive 
construction of lists the sequence is constructed in reverse 
order. To correct this the reverse function is included and 


appiied to the generated sequence before printing. 
source Code 


<letrec reverse 
<lambda <L> 
<if <<call <var null> <var L>> 
come. > 


a 


<cal lex Var cone 
<call <var reverse> 


<call <var rest> <var L>>> 


€<call <var sub> <var Lo <con (>>. 


<letree ilo 
<lambpda <n> 
<if <<call <var equal> <var nee ceonm 
<conw<- 
<if <<call <var equal> <var n> <con 1>> 
<“COn uae 
<if<<call <var egual> <var n> <con 2>> 
SeCChy<  e 
“call <vab cens- 
<call <var sum> 
<call <var sub> 
<call <var Erber 


<call <var Swi 
<var n> 
<con oe 
<conmairs 
“Gals <vawsue. 
<call <vabp Gi bor 
<call <vare Swine 
<var n> 
<con 1>>> 
“<COnaZ >> 
<call <var Tribe 
<call <var subt> <var n> <con Woe 
>> P22 


<call <var reverse> 
€call <varE fibe> <con  10le> 


Results of £1b(3..10) without a let Statement 
eae (3) 


Enter Expression 


96 


a i ee a 
Evaluaticn Completed 


$C oa koto ok kkk ok kkk RR ke ok 


Statistics 
System time was 183 milliseconds 
User time was 733 milliseconds 
iModule Cells created | 
—.  ~ a ee | 
jdcprin BY { 
{cons 428 { 
|ceadiden 105 i 
j|ceadint 11 | 
Jletrec 12 i 
Jequal 12 i 
jsubt 3 
|sunm 1 { 
a 1 1 4 i 
jconr Zz | 

otal celis 662 

fib (4) 
Enter Expression 
< Le 1 2 3> 


Evaluation Completed 


FE KH IKK ea a a a ae a oe ee oe ee ee ee KK eK KK 


Statistics 
System time was 166 milliseconds 


User time was 1250 milliseconds 


97 


|dcprip 84 ] 
jcons 570 | 
|readiden 105 { 
j|readint 11 
jletrec HZ j 
jegual a 
sunt 12 | 
J}sun i 
{null 3 | 
{conr | 
Total ceils 845 
toon) 
Enter Expression 
< i ies 2, ae 5> 


Evaluation Completed 


HX eK KK KK eK KK KKK KK KK KKK KK KK KK KK KKK KK KK KK KK KKK KKK KK K 


Statistics 


Syster time was 216 miiliseconds 
User time was 2566 milliseconds 
{Module Cells created | 
Pees 6 ee eee | 
|dcprip 84 ] 
jcons 976 
jceadiden 105 ] 
jreadint 11 
jletrec iz | 
Jeyual 120 \ 
jsukt ee ] 


oe 


jnull | 
j CONT 4 | 
otal cells 1370 
fib (6) 
Enter Expression 
< 1, 1, Ly 2; 5 8> 


Evaluation Completed 


Ro kk kk a kk dk kk ok kak kok ook ok 


Statistics 

System time was 300 milliseconds 
User time was 6350 milliseconds 
j Module Cells created | 
—<* eae eee 
Jdcprin 84 
jcons 2174 ] 
jcreadiden 105 i 
jreadint 11 | 
jletrec 12 i 
Jequal On i 
jsubt 120 l 
jsun 40 
od 1. 1 i 
neon 5 | 

Total cells 292% 
fib(7) 
Enter Expression 
< i, i 24 oe 2 ee 13> 


Evaiuaticn Completed 


oe 


ee Fe Ke ee a a i ake a ie ok fe ake ok i a ee ee eo ok ko ok ok ok ok 


Statistics 


System time was 666 milliseconds 
User time was 17766 milliseconds 
j Module Cells created | 
ae ee tee | 
jdcprin 84 | 
jcons 5748 | 
jcreadiden 105 | 
jreadint 11 | 
jletrec WZ | 
jegqual 1092 | 
Jsubt 363 | 
jsum 121 { 
jnull 8 | 
jconr 6 | 
Total ceils 7 So) 
fib (8) 
Enter Expression 
< i Ie LG ay 5 ow baz 
21> . 


Evaluation Completed 


We Fe Ree ee eke ke i ok ke a ak ake ake ake ake ea ie oc oe oe ke ie ok ak ok eo eo oe kok 


Statistics 
System time was 1633 miildiseconds 
User time was 51716 nilliseconds 
|Module Cells created | 


|dcprin 84 


| 
jcons 16450 | 
jceadiden 105 | 
jreadint 11 | 
jletrec 12 | 
jegual Boe i 
jsubt noo | 
jsum 364 | 
J}null g | 
jconr 7 | 
Total cells 21413 

ie (9) 
Enter Expression 
< lt. I, 2a Se ag ay i, 

7A 34> 


Evaluaticn Completed 


Ae AK A a eo a RK a a KK a A a I KK KK OK Ko kK 


Statistics 
System time was 4650 milliseconds 
User time was 154450 milliseconds 
| Module Celis created | 
P—ita=s SoS l 
|dcprin 84 | 
jcons 48536 | 
| readiden 105 | 
| ceadint 11 | 
Jletrec 12 | 
Jequal 9840 | 
|subt a279 | 
|sun 1093 | 
a 1 10 | 


101 


Total cells 62978 
fib(10) 
Enter Expression 
< 1, Ac, 2 a5 Ds 
on ie, Cale 345 55> 


Evaluation Completed 


fo RK a do doko ok ok eK ok KK KOK OK KOK KK KKK KK KK 


Statistics 


System time was 13100 miiljdiseconds 
User time was 458983 milliseconds 
|Module Cells created | 
Loss —~ | ae ee 
jdcprin 84 | 
jcons 144774 | 
jcreadiden 105 | 
jreadint ug j 
jletrec 12 | 
jegual L523 ] 
jsubt 9840 | 
jsum 3280 | 
Lauer 11 j 
iGo Tee 9 | 
Rowe 1 cells 187649 


fe KK RK KK BK KKK KK KKK RK KR KKK KK KK KEK KKK KKK KD 
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ELC Program to generate the Fikonacci Sequence (USing a let 


statement) 


Source Code 


<letrec reverse 
<lamrEda <L> 
Gtheea<Ccall <var null> <var L>> 
<con <>> 
<call <vaxr conr> 
<call <var reverse> 
<call <var rest> <var L>>> 
<Calle<Var SUb> <var L> <con 1>>>>>> 
<letrec fibo 
<lambda <n> 
<if <<call <var eqgual> <var n> <con 0>> 


<con <>> 
<if <<call <var equal> <var n> <con 1>> 
<con <1>> 


<if<<call <var egual> <var n> <con 2>> 
<Cone< i 1 
<let <<f> <<call <var fibo> 
<call <var subt> 
<var n> 
Scone 
<call <var cons> 
<call <var sum> 
<call <vac first> 
<var f{£>> 
“call <var figst> 
<call<var rest> 
<var £>>>> 
€var £>>>>>>>>>>> 
<call <var reverse> 
<call <var fibo> <con 10>>>>>! 


os 


Results of Fibonacci generating ewer ser with ‘Vem 
Statement 
elo (5 eel) 


£1°D (3) 
Enter Expression 
< UF Vi 2> 


Evaluation Completed 


tok ko gk ok kok do kkk kk ko doko kkk ok kkk kok kok kok & kok kK KK K 


Statiswies 

Syster time was 133 milliseconds 
User time was 700 milliseconds 
| Module Celis created | 
i 
Pacer in 84 | 
{cons So | 
j] ceadiden a5 | 
{readint 9 | 
jletrec 12 | 
jecual 6 | 
{subt 1 | 
jsun 1 | 
jnull 4 j 
eons 2 | 

Total cells 606 
fi bad) 
Enter Expression 
< 1, le 2a Sh 


Evaluation Completed 


He Fe He ee oe ee ee ee ee eK ke ee eo ee ee kK eK ok ok eK Kk KK Kk 


104 


Statistics 


System time was 183 milliseconds 
User time was 783 milliseconds 
| Module Cells created | 
Paes. | (CU See 
j}dcprin 84 | 
jcons 427 
jceadiden 95 | 
{|creadint 9 | 
jletrec 12 i 
jequal 9 i 
jsubt 2 l 
{sun Z | 
jnull 5 | 
{conr 3 | 

Total celis 648 
me (5) 
Enter Expression 
< ly V5 ee ay 5> 


Evaluation Completed 


Me AK He A ie Ae He ie ee ee ee i ee ea oc oe ee ee oe ae ee ee oe ie he ee ee Ko 


Statistics 
Syste time was 166 milliseconds 
User time was 866 milliseconds 
{Module Cells created | 
ieee 0777777 TTH i 
|dcprinm 84 | 
jcons 462 
{ceadiden 95 | 


105 


jceadint 9 | 


Jletrec 12 | 
jegqual 12 | 
jsubt 3 | 
{|sun > 
Poa) 6 | 
Jconr 4 | 
Total cells 690 
fib (6) 
Enter Expression 
< VW dc, 24 a5 ay 8> 


Evaluation Completed 


WK A OK OK a RK a a i eK KK I I KR KK KK KK KKK RK OK KK 


Statistics 
Systegr time was 133 milliseconds 
User time was 1066 milliseconds 
{Module Cells created | 
[aa = Seo 1 een 
|dcprin 84 | 
Jcons 497 | 
jceadiden 95 | 
{readint 9 | 
jletrec iz | 
Jequal 15 | 
jsubt 4 | 
jsun 4 | 
[eee if | 
J}conr 5 | 
Total ceils duse2 


106 


fib (7) 
Enter Expression 
< Ve i, ZG Sf 2, 8, 13> 


Evaluation Completed 


Joi kok gok kok ok odo kokokoigk gok dk kok kk KKK KK 


Statistics 
System time was 183 milliseconds 
User time was 1100 milliseconds 
jModule Cells created | 
ase i= TTT TST | 
{dcprin 84 | 
jcons 7 | 
jreadiden 95 | 
jreadint 2 | 
jletrec 12 
jequal 18 | 
{subt 5 | 
jsun >) | 
jnull 8 | 
jconr 6 | 
Total ceils 774 
feet ( 8) 
Enter Expression 
< 1, Te a : a 3, 12. 
21> 


Evaluation Completed 


Be Xe He He A ee A a eo ae a KK KK KK KKK KKK KK KK KK 


Statistics 
Systema time was 183 milliseconds 
User time was 1216 milliseconds 
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|dcprim 84 | 
jcons 567 | 
jreadiden 95 | 
|readint 9 
jletrec 12 i 
Jequal Za | 
isubt 6 | 
jsum 6 
jnull 9 
[com a J 
Total cells 816 
iano) 
Enter Expression 
< ley ae ae a5 ay 8, Taz 
Ze, 34> 


Evaluation Completed 


Me KK he 2 KK te ee ak ake ee oe ee aK i 2 oe a ee i Eo eK ig oe eo KK ke ko OK 


Statistics 
System time was 200 milliseconds 
User time was 1300 milliseconds 
| Module Celis created | 
aan = = Sr gee 
Jdcprin 84 | 
{cons 602 | 
jreadiden 95 | 
jcreadint 2 | 
jletrec 12 | 
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jequal 24 i 


—_ [P= awe am Pe aR oe ee ee ee ee ewe ew eee eee a ewe =P aD am aE ewewan = = aD 


Total cells 858 


fib(10 

Enter Expression 

< v, vs 2 37 D4 
Si, 13) 2A, 34, 55> 


Evaluation Completed 


He Ke oe Ke KK KK KK EK eK Kk eK eK KK ook ok 


Statistics 
Systenr time was 166 milliseconds 
User time was 1466 mnilliseconds 
| Module Cells created | 
ieee 2 ~ oO sSTo | 
jdcprin 84 i 
Jcons 637 | 
jcreadiden oe | 
Jcreadint 9 | 
jletrec 12 i 
jequal Zz) j 
feupt 8 l 
jsun | 
jnull 11 j 
J]conr 9 j 
Total cells 900 
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Pascal Source Code for Fibonacci Seyuence Generator 


programe ftib(input, output. 
const max =100; 
type seg = 1..max of integer; 
var fibseg: seg; 


N,C: intvegen: 


procedure fib(n,i:integer) ; 
pegin 
if i <= n then t-egin 
1f (3 = 1) o: (2 & 2)) thenmeqa 
fibseq (eds) = ane 
fibqn, ist ee 
ong 
else if 1 >= 3 then begin 
fibpseg (.1.) := fibseg(.1-1l.) * fibseqi esa 
fib (ny 1 Stee 
end 
end; 


end; {procedure f1ib} 


begin 
wEeitein(* inpue nes ') : 
read (n); 
£1 biti) 
for c := 1 to max do begirz 
if fibseq (.¢.)<> Ose nen 
write (fibsegq (ear. 
end; 
writeln; 
writeln('System time',sysclock:10,' millisec') ; 
writeln(‘'User time ‘',clock:10,' ni iscces 
end. {Program fib} 


Results of fibonacci seguence generator in Pascal 


eee { 3) 
Pi put n; 

1 
System time 


ser tine 


fib (4) 
myput n: 

1 
System time 


User tine 


fon (5) 
Input n: 

1 
System time 


User tine 


fib (6) 
iiput n: 

1 

8 
System time 


User tine 


fob (7) 
Pmput n: 

1 

8 
Systegz time 


User tine 


£ib (8) 

erput n: 
1 
8 


Syster time 


Bn) 


0 


Bc 


33 


a3 


SS 


Z 
millisec 


Hillisec 


2 
millisec 


millisec 


2 
millisec 


millisec 


millisec 


millisec 


lieeisec 


millisec 


2 
21 


millisec 


111 


User time 


fib (9) 
Tn pues. 

j 

8 
System time 


User tine 


fib(10) 
peers 

1 

8 
System time 


User time 


0 millisec 


2 


21 


33 millisec 


QO millisec 


1 


13 


2 


al 


33 millisec 


QO millisec 


3 5 
34 
34 55 


Profile for ELC fibonacci sequence generating functions 


Berkeley Pascal PXP -- Version 2.12 (5/11/83) 


Wed Dec 12 


12:48 1984 


test11.f5 


Profiled Thu Dec 13 09:41 1984 


Line 


33 
36 
62 
63 
84 
94 
2 
13,7 
156 
183 
2510 
213 
Zon 


CCune 


ya 
844 
27 
3862 
8188 
4372 
637 
10 


10 
27 
27 


func 
PEt Van 
cellcount 
egual 
Quip 
Lipset 
rest 
cons 
Cone 
sun 
subt 
Sub 
equalp 


equal 


a9 
547 
564 
599 
643 
663 
702 
704 
714 
770 
827 
555 
843 
867 
oe 
880 
881 
882 
884 
947 
1012 
1041 
3 
1198 
1239 
1261 


466 
3862 
11 
226 
6 
11 
180 
256 
76 


410 
514 

a5 
180 

38 
315 
136 


466 


38 
BO 
116 
136 
Zo 


atomp 

ago eerele) 
Der 1 
assoc 
pairlis 
printval 
readval 
nonblank 
readlist 
readint 
SaL(c(abne 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
dcprinm 


readfnane 


[EE Eta a = —_——a oe — —= ——— a = oS Se ee 


Generates a sequence of natural numbers from m ton, 


where m,n are two natural numbers and @m‘< _n. 


Practical Application 

Interval is very useful when generating tables of infor- 
mation. In the next exampie interval is used to generate a 
table of trigonometric values for ail angles between QO and 


90 degrees. 


<letrec interval 
<lamrtda <m n> 
<if <<call <var GT> <var m> <var n>> 
<con <>> 
<call <var cons> 
<var m> 
<cali <var interval> 
<cali <var sun> 
<var m> <con 15> 
<var N>> Y>D>> 
<call <var interval> <con 1> <con 50>>>! 


Results of interval yeneration program (m= 1, on = 50, 

Compiled) 

Enter Expression 

< 1, ae Sy 4, Dy Gy y 
on oF 10, Tae 127 13¢ 14, 
1S 16 lee, ey 1S 202 2 
2 23u 24 255 26% 27; 2 oe 
2 308 Sally 32 33% 34, 35; 
36, ad, 387 ao: 4Q Qi, 42, 
43, 44, 45, 46, 47, 48, 49, 


50> 


114 


Evaluation Completed 


He ke ke kk ok eK ok ok IK eK KK ok & 


Statistics 
Syster time was 266 milliseconds 
User time was 1716 milliseconds 
| Module Cells created | 
SS ii l 
J|dcprin 84 j 
jcons 963 | 
| ceadiden 315) | 
jceadint 3 | 
}letrec 6 l 
{GT 51 | 
jsun 50 ] 
Total cells 1192 


Results of interval (interpreted) 


He eK eK ee KK ke eK KK KK KK KK KKK KK K 


Statistics 
System time was 616 milliseconds 
User time was 19966 milliseconds 
|Module Cells created | 
ME | 
|dcprin 8y | 
{cons 963 | 
{|readiden 3D | 
j|readint | 
jletrec | 
|GT 51 J 


rs 


}sun 


Total cells 


Profile for interval function g, 


nh 1-50 


Berkeley Pascal PXP -=- Version 2.12 (5/11/83) 


wed Dec 12 


12:48 1984 


testli.f 


Profiled Thu Dec 13 13:54 1984 


Line 


1 
63 
36 
63 
84 
94 

122 
158 
550 
340 
Beg 
547 
399 
643 
663 
7102 
704 
714 
770 
ae) 
8335 
843 
867 
Oia 


Count 


1 

51 
ale 
5487 
i793 
6357 
wo 3 
50 
51 
al 
761 
5437 
454 
De 
51 
be 
88 
23 


151 
189 
oS 
6 3 
51 


printval 
cellcount 
hue 
EiPse 
bese 
eons 

sum 

GTp 

GT 

atomp 
nulip 
assoc 
Bali das 
Printval 
readval 
nonblank 
readlist 
readint 
digit 
letter 
readident 
readval 


evcon 


880 
88 1 
882 
884 
947 
[Outs 
1041 
1093 
1198 
1239 
1261 


606 
151 
202 

28 


delay 


evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
dcprin 


readfname 


Restriction 


burpose 

Restriction takes a finite function, T, (table Of atte 
Lute value pairs), and returns a finite function exactly 
like T except that cne of the fairs has been removed. Ls 
the pair to be deleted is not a member of the finite func- 


tion then T is returned (this 1S tolerant evaluation). 


ractical Application Restriction could be used to deus 


records from a database. 
source Code 


<letrec member 
<lanbda’ <x. 
<if <<call <“vaiemuli> <varEen 
<con false> 
<1 E\“<ed Migay an eq ae 
<var xX> 
<call <var £1lrSst>eevear i 
<con true> 
<call <var member> 
<Vaik x? 
<call <var rest> <var L>>>>>>>> 
<letrec fiestiist 
<iambda <L> 
€if <<call <var null> <var ee 
<con <>> 
<call <vakr cons> 
<call <var Iirst> 
<call <var ElESteeovace. 
<call <var firstlist> 
<call <var rest> <var L>>>>>>> 
<let rec tseaneune 
<lamrda <T> 
<if <<call <var nuli> var 


1s 


<con true> 
<if <<call <var equa) 
<call <var len> 
Sedu peavaGetLerst> <var T>>> 
<con 2>> 
<if <<call <var equal> 
<call <var member> 
Scale <var £Lrst> 
eeall <var firstlist> 
<var T>>> 
<call <var rest> 
<eall <yar f2Erstlist> 
<var TH>>> 
<con trued> 
<con false> 
<call <var isfinfunc> 
<call <var rest> 
<var Td>>>> 
<con falser>>>>>> 
<let <<repr> <<lambda <T> 
<if <<call <vaxc equal> 
“Ga <vae ELrst> <var T>> 
<con finset>> 
<call <var rest> <var T>> 
<con nofininc>>>>> 
<letrec restric 
<lambda <T k> 
<if <<call <var equal> 
<call <var isfinfunc> <var T>> 
<con true>> 
<if <<call <var null> <var T>»> 
<con <>> 
<if <<call <var egual> 
<var k> 
—Calieavat £16rSt> 


Act 


<Call <Var fyese. 
<Vdir i> oe 
<call <var rest> <var T>> 
<call <var cons> 
<call <var LLlESt> <vyaEree 
<call <var restric> 
<call <var rest> <var TDD> 
<varl K>>> 
<cOn) Tieecrtune>. > 
<call <var restric> 
<call <var repr> <finset <3 44> <6 5>5<23) 
<¢Con 3> 2>>>7 27 


Results of restriction function (Compiled) 


Enter Expression 


<< ce 5> 
e < 8, oe 
2 


Evaluation Completed 


FEE A AC OK oe eK ae i Ke ae a ie aK oo acc oc oe aK oe ie oe oe Oe ie i eK oc Ke 2 ee oc ee oe eo ok ok ok 


Statistics 
Systema time was 216 milliseconds 
User time was 1966 milliseconds 
jJModule Cells created | 
[air Sa 7 en oa | 
{dcprin 84 | 
Le ons 837 ] 
| creadiden 220 | 
j|readint 8 ] 
J letrec 24 i 
jeval 1 | 
jegual TZ | 
ipa JL | 


120 


Total cells 1218 


Results of restricticn (interpreted) 


Enter Expression 


<< 6, 3) 
nS Or 32 
> 


Evaluation Completed 


He He He ee he ee he he he he ae he eee fe eae 2 oi he ee ae ee he ae ie eee 2c 2c ee 2c ee ac eee 2c ae ee he kee ee ae 


Statistics 
System time was 516 milliseconds 
User time was 17966 milliseconds 
{Module Cells created | 
——7 imaagee ogee i 
{}dcprin 84 | 
jcons 837 i 
| ceadiden 220 | 
jreadint 8 | 
|letrec 24 | 
jeval 1 i 
jequal 12 | 
jnull oo i 
{len 3 | 
Total cells 1218 


Profile for restriction prograr 
Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 test11.f5 


121 


Profiled Thu 


Line 


1 
33 
36 
62 
63 
84 
94 

122 
O73 
291 
539 
547 
564 
576 
587 
599 
643 
663 
702 
704 
714 
770 
827 
835 
843 
879 
880 
881 
882 
834 
947 
1012 


Dec 13 14:50 1984 


Count 


1 

f 
1162 
12 
4184 
8859 
4699 
e37 
tz 
12 
44 
4184 
Zo 


226 
69 


387 
546 
159 


TOU 1 
loo 
220 

41 
Sa 
145 


444 


4 


V2 


printval 
cellcount 
equal 
hullp 

i Lissit 
rest 
cons 
egualp 
equal 
atomp 
nullp 
ee 
lenp 

len 
assoc 
pairlis 
printval 
readval 
nonblank 
readlist 
readint 
dasa 
letter 
readident 
evcon 
evlis 
apply 
letrec 
eval 
letrec 


evcon 


1041 
hogs 
1198 
1239 
1261 


322 
115 
a5 

28 


123 


evlis 
applyprin 
apply 
dcprim 


readfnane 


Purpose 
Vectorproduct returns the pairwise products of two lists 
of numbers. 


=> SS a SS SS EE = — Se Se Se ae Se 


This £function could be used to calculate the state tax 
owed by military employees, since different states have 
different rates of taxation. Cne vector would be the list 


of salaries and the other the rates of taxation. 
SOUECE, Code 


<letrec map 
<lamkda <f> 
<lambda <L> 
<if <<call <var null> <var L>> 
<con ©> 
<call <var cons> 
<call <var f> <call <var first><var L>>> 
<call <call <var Maple ava 
<call <var rest> <var L>>>>>>>5 
<letrec prodlist 
<lambda <L> 
<if <<call <var nuli> <varee 
<con 1> 
<Cali SVaimeprod> 
<call <var sub> <var Lo <cenwi 
<call <var prodlist> 
<call <var rest> <var [> 527777 
<letree parriase 
<lamrda <L M> 
<if <<call <var equal> 
<cail <var len> <vVar ie 
<call <var len> <var M>>> 
<if <<call <var null> <var gee 


124 


re <<Ca ll ovaries > <var M>> 
<con <>> 
<con <>>>> 
<call <var cons> 
<call <var cons> 
<call <var first> <var L>> 
<call <var cons> 
<call <var first> <var M>> 
<con <>> >> 
<call <var pairlist> 
<call <var rest> <var L>> 
<call <var rest> <var M>>>>>> 
“con, C€rrorpl> >>> 
scall 
<call <var tap> <var prodlist>> 
<call <var pairlist> 
<list <con 5> <con © <con 4> <con 9>> 
“list MGeumz> <con,) 20> <con 7> <con 3>2>>>>>! 


Results of vectorprod function (Compiled) 


Enter Expression 
< 10; Vee, Zor 2)> 


Evaluation Completed 


2 ko doko ok kak ok ag gk ka kkk kk kak ak kook 


Statistics 
System time was 216 miliiseconds 
User time was 1583 milliseconds 
|Module Cells created | 
a ~ aaa = 
jJdcprinm 84 ] 
jcons 720 i 
jreadiden 150 | 
{readint 10 | 


125 


jletrec 18 


{len 10 | 
jegqual 5 | 
jnull Zs 
jeval | 
| prod 8 | 
Total ceils Oss 


Results of vectorproduct function (Interpreted) 
Enter Expression 
< 3) 160, Zoe 27> 


Evaluation Completed 


We Re ee ok Kae ee ee i eke ee oe ak ie ake ee ake ae ae ke ake Ke ae he ake eK Ke ae ake oe ie ok oe a oe oe ae ok 


Statistics 
System time was 483 milliseconds 
User time was 15066 milliseconds 
|Module Cells created |] 
i-S"=—-"- <Q =] =o- >> ae 
|dcprin 84 | 
jcons 720 l 
{| ceadiden 150 j 
{readint 10 | 
jletrec 18 | 
jeval 5 | 
jlen 10 | 
jegqual 5 } 
Poe! Z3 | 
| prod 8 | 
Total ceils 1032 
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Profile for vectorproduct function 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testl1.f£ 

Profiled Thu Dec 13 15:09 1984 


Line Count 
1 1 func 

oS: 5 printval 

B16 oy 7 cellcount 

62 5 equal 

63 S59 np 

84 (ono first 

94 4038 rest 

ee 720 cons 
208 8 DEO 
Eo 8 sub 
Za 5 eqgualp 
291 5 equal 
Boo a2 atomp 
547 Bore nulip 
564 23 null 

576 30 lenp 

587 10 len 
S79 202 assoc 
643 sy, pairlis 
663 5 printval 
102 L412 readval 
704 384 nonblank 
714 112 readlist 
770 10 readint 
Giz? 659 Gale Gagte 
oo 819 letter 
843 1590 readident 


Ze, 


867 
S73 
880 
881 
882 
884 
947 
1002 
1041 
loss 
1198 
1239 
1261 


Ze. 

28 
310 
29 


a 
Oo 
ui 


28 
310 
102 
zg 

Za 
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readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
dcprim 


readfname 


Filter Function 


Purpose 
Filter allows the user to extract information from a 
list Fased on a Boolean condition. In the example given, 


all numbers greater than 2000 are extracted from the list. 


Filter is another function that could be useful when 
dealing with databases. Users of relational database 
systems use filtering every time they write a guery. 
Imagine that the elements of the example are salaries. The 
guery demonstrated is to find all salaries greater than 
2000. 


source Code 
<letrec fil 
<lambda <bool arg> 
' élambda be 
<if <<call <var null> <var L>> 
<con <>> 
<if <<call <var bcol> 
<call <var sub> <var L> 
<con, 12> 
<var arg>> 
<call <var ccns> 
“Calae<Viar SUb> <Var L> <con >> 
<call <call <var fil> 
<var bool> 
<var arg>> 
<call <var rest> <var L>>>> 
<“Gassies<call..<var £i1> 
<var bool> 
<var arg>> 
<cail <var rest> <var L>>>>>>>>> 
<call 


<call <var f£1il> <var GE> <cen 200 Ge 
<list <con 1000> <ccn 12000> <con 2005> <con 3400> 
<con 3305> <con 1345 <con 200 econ joo 
<con 2209> <cen1799>> > 


Results of filter function (Interpreted) 
Enter Expression 
<412000- Z00S5 3400, 33.02, 2001, 3500, 22028 


Evaiuvation Completed 


FR HK eK aK KK a ee Ko ok i a ok oe oe eo ie ek a KK oe ie ee ok a KK a kk & 


Statistics 


System time was 416 miliiseconds 
User time was 9083 milliseconds 
|Module Cells created | 
[------ | 8 | 
Jdcprinm 84 | 
[cons 562 j 
{ceadiden 19 j 
jreadint 13 | 
|}letrec 6 | 
jeval 11 | 
{rele 11 | 
|GE 10 | 
Total cells TIS 


Result cf filter function (Comfiled) 
Enter Expression 
Cee O00, 2095, 3400, e805, 2001, 35007 2209> 


Evaiuaticn Completed 


AE He Ke ee ae 2 ie ae ae a fe a ee ea oe ok eo ee aK ie ek Ke KK eK KK KK KK KK K 


130 


Statistics 


Systeg time was 216 milliseconds 
User time was 816 milliseconds 
{Module Cells created | 
oases Cll 
jdcprin 84 
jcons 562 | 
jceadiden no | 
{readint 13 j 
Jletrec 6 j 
Jeval 11 | 
Pauli 11 | 
PGE 10 
Total cells 776 


Profile for the filtering function 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 test11.f5 

Profiled Thu Dec 13 13:40 1934 


Line Count 
1 1 EUG 
35 8 printval 
36 720 cellcount 
63 1838 Ridge 
84 4010 first 
94 z185 rest 
eZ So cons 
258 ley, sub 
85.7 10 GEp 
367 10 GE 


poo 275 atomp 
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547 
564 
598 
643 
663 
TZ 
704 
714 
770 
827 
e3)> 
843 
867 
Brg 
880 
881 
882 
884 
947 
OZ 
104 1 
132 
1198 
1239 
1261 


1838 
11 
135 
a) 


151 
210 
a9 
13 
332 
424 
ro 
1a 
21 
210 
77 


212 


21 
z210 
a2 
77 
28 


nulip 
Wa 
assoc 
pairlis 
PEIneval 
readval 
nonblank 
readlist 
readint 
dargane 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
applyprin 
apply 
dcprinm 


readfname 


Purpose 
This progran Simply illustrates the 


ability to generate a recursive sequence. 


Soure 
t 


<1 


e Code 
etrec reverse 
<lambda <L> 
oeccecail! <“Vvar null> <var L>> 
<con <>> 
<call <var conr> 


<call <var reverse> 


interpreter's 


<call <var rest> <var L>>> 


<cail <var sub> <var L> <con 
<letrec fibo 
<lambda <n> 
<if <<call <var egual> <var n> <con 
<con <z>> 


oe 


lee 


<if<<call <var egual> <var n> <con 2>> 


<ccn <9 2>> 


<let <<fi> <<call <var fibo> 


<Gallecvar 

<var 

<con 

<call <var cons> 
<call <var 


subt> 
n> 
1>>>> 


sSubt> 


“Cave aVart Lirst> 


<var f>> 


<call <var first> 
<call <var rest> 


€<var f>>>> 


“Val ioe >>>} 


<call <var reverse> 


Secall <var £ibo> <con 24>>>>>:! 


oe 


Results of generating the first 24 elements of a periodic 
sequence, where x1 = 2, x2 = 9, and xk = (xk-1)-(xk-2) 
for k =3,74>5>5,> 22 


Enter Expression 


< 2 9, Te -Z, -9, -7, 
a 9, 7, = ee =o7 = les 
2 9, ae -Z, -9, -7, 
De 9, a -Z, -9, HS 


Evaluation Compieted 


He He Ke eo eK eo eK Ko aK ea KK KK KK KKK KKK KKK KK KK KK KK KKK 


Statistics 
Syster time was 283 mililiseconds 
User time was 2916 milliseconds 
j'f{odule Cells created | 
ia 7a eee as 
foGerah 84 | 
Jcons 1064 | 
|creadiden 87 | 
jreadint 8 | 
jletrec 12 | 
jequal 46 | 
jsubt Wy | 
jnuil 2) | 
jconr 23 | 
Total cells lea 


Profile of seq2 (periodic function) 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 test11.fF 

Profiled Thu Dec 137102310 Mlece 
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Line 


aS 
a6 
62 
63 
8 4 
94 
122 
137 
183 
Zo 
213 
Zo 
yoo 
547 
56 4 
239 
643 
663 
702 
704 
714 
770 
827 
Se 
843 
867 
879 
880 
881 
882 
884 
947 


Count 


21 
118 1 
38 
nO 22 
16163 
8626 
32 
20 
36 
20 
38 
Bo 
88 1 
7652 
ZA 
438 
116 
21 
163 
z31 
68 


09 
474 

87 
163 

52 
738 
260 


881 
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Pelotval 
celicount 
equal 
Deli p 
first 
crest 
CcOoLrs 
Gone 
subt 

sub 
equalp 
equal 
atomp 
Tete 
null 
assoc 
pairlis 
printval 
readval 
nonblank 
readlist 
readint 
Giincpage 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 


letrec 


TC 

1041 
1093 
Vos 
Zao 
1261 


50) 
7138 
227 
267 

23 
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evcon 
evlis 
applyprin 
apply 
dcprin 


readfname 





Purpose 
Overlay takes a finite function, (table), and returns an 


identical table with an additioral pair added. 


verlay could be used aS a way to update a database. 


Source Code 


<letrec firstlist 
<lambda <L> 
<if <<call <var null> <var L>> 
<con <>> 
<call <var cons> 
<call <var first> 
<call <var first> <var L>>> 
<call <var firstlist> 
<call <var rest> 
<var L>>>>>>> 
<letrec isfinfunc 
<lamkda <T> 
<1t <<Call <var null> <var T>> 
<con true> 
<if <<call <var egqual> 
<call <var len> 
<call <var first> <var T>>> 
<con 2>> 
<if <<call <var memb> 
<call <var first> 
<call <var firstlist> 
“Vader >> 
<call <var rest> 
€<call <var firstlist> 
<var Td>>> 


<con false> 
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<call <var isSfiniume 
<call <var vest 
<Var fee 
<con false> 
>> >>> 
<letrec overlay 
<lambda <T pr> 
<if <<call <var equal> 
<call <var isfiniune> <vare. 
<con true>> 
<if <<call <van null> <warer 
<call <var CONS> <Var pr> Ceonme. 
<if <<call <var equal> 
<call <var £irst> “var pe-] 
<Call <vaEweppse 
<call <var fags 
<var T>>>> 
<call <var overlay> 
<call <var rest> <varer~ 
<V¥d ape 
<call <var cons> 
<call <var fiCst> <vare 
<call <var overlay> 
<call <var rest> <var View 
<Val) pir? 
>>>> 
<cOn InOrEL rune 
>>> 
<call <var overlay> 
<call <var repr> <finset <3 4> <6 43> ces 
<list 7 23 5232): 


Results of overlay function adding the value <3 4> 


to the table: (Compiled) 
Enter Expression 


138 


<< a7 4> 


p< 6, 5> 
me 8, 9> 
; : 2> 
> 


Evaluation Completed 


IOI OIE KO IG OK KR kK kako kak kk kok ok ak kok ok 


Statistics 
Syster time was 183 milliseconds 
User time was 2333 milliseconds 
{Module Cells created | 
as nwa eae 
{dcprinm 84 
jcons 907 | 
| ceadiden 170 | 
jreadint 9 
jletrec 18 | 
jnull 46 
jilen 6 l 
{equal 13 | 
|memb 6 | 
Total cells 59 


Results of overlay (Interpreted) 


Enter Expression 


<< Sy 4> 

e 6, 5> 
p< 8, 9> 
a < i 2> 
> 


Evaluation Completed 


He Hee oe ee ee ee ee ok eK KK KK KK KK KK KKK KKK KK OK KK K 


Statistics 
Syster time was 633 milliseconds 
User time was 24433 milliseconds 
j}Module Cells created {| 
[------ SS aa | 
idicp ram 84 | 
jcons 907 | 
jceadiden 170 
jJreadint 9 | 
jletrec 18 ] 
jnuil 46 | 
llen 6 | 
jegual 13 j 
jmemb 6 | 
Total cells 1253 


Profile for overlay frogran 

Berkeley Pascal PXP -- Version 221256070) 
Wed Dec 12 12:48 1984 testI11.f5 

Profiled Thu Dec 13 14:05 1984 


line Count 
1 1 func 

33 13 Did nee 
a6 1203 cellcount 
62 13 equal 

6 3 6758 nwislgp 

84 14295 first 

94 1so6 rest 


140 


WZ2 
21.3 
oN 
Dog 
547 
504 
16 
587 
Soh, 
643 
663 
702 
704 
714 
770 
827 
835 
843 
867 
Cag 
880 
881 
882 
884 
947 
1012 
104 1 
1061 
1071 
1083 
1093 
1198 
1239 
1261 


907 
17 
13 

711 

6758 
46 
18 


a7 1 
96 
13 

301 

423 
122 


794 
273 
170 
301 


IS 
24 1 
28 


141 


cons 
eqgualp 
equal 
atomp 
MeL 
nae 
lenp 

len 
assoc 
pairlis 
Ioeeieinat Wel. 
readval 
nonblank 
readlist 
readint 
@akg ARE 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 
eval 
letrec 
evcon 
evlis 
membp 
memb 
isfinset 
applyprin 
apply 
dcprim 


readfname 


Purpose 


Split takes a list and divides it into two equal size 
eS Sr. 


The split function illustrates how functional languages 
lend themselves to parallel computer operations. Tf gulgwe 
sort was implemented using split then once tne list was 
initially separated into two lists, two processors could 


work cn those two lists, etc.. 


Source Code 
<letrec splitaux 
<lamcEda <k L> 
<if <<call <var equal> <var k> <cone 


<call <var cons> 


<Gon- <>? 

“Gai <Vau cons 
<var L> 
<Cone <2 7 2) 


<let <<r> <<call <var splitaux> 
<cali <var subt> <var k> <con 1>> 
<call <var rest> <var Ld>>>> 
<call <var cons> 
<call <var cons> 
¢<cail <var first> <var L>> 
<call <var £L1Eest> <vaEere 
<call <varc rest> <var E?>>> >> 
let <<spd i > 
<<lamikda <L> 
<call <var splitaux> 
<call KVab divi> 
<call <var Len> <Vaber? 
<con 2>> 
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<var L>>>> 
SGammeavar splift> <list a b°Cc d @€9£ 10 e€ t>>>>>! 


Results of using the split function to divide a 10 element 
list 

Enter Expression 

mca, b, C, d, e> 

mer, 1, O, e, t> 

> 


Evaluation Completed 


He HK eK KK KK KK KK KK KK KK RK KK KK KKK KK KK KK KK KK 


StaListics 
System time was 166 milliseconds 
User time was 833 milliseconds 
| Module Celis created | 
—<- eg | 
Bae prin 84 
jcons 472 | 
| ceadiden 91 | 
jreadint 3 | 
jletrec 6 | 
jeval 1 | 
jlen 1 | 
eV i 1 | 
jegual 6 J 
jsubt a) | 
Total cells 670 


Profile of split (ten element list) 
Pemmeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testii.f 
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Profiled Thu 


Line 


1 
Br 
SG 
62 
63 
84 
94 

VZzZ 
183 
238 
273 
2070) 
Io 
547 
576 
987 
599 
643 
663 
702 
704 
714 
770 
827 
835 
843 
867 
879 
880 
881 
882 
884 


Dec’ 13° 15:03 42c8 


Count 


1 
13 
614 


1656 
3439 
1861 

472 


183 
1656 
11 


86 
32 
13 
156 
2c 
62 


SS 
469 

oF 
156 


169 
2 
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TOY 


printval 
cel feounn 
equal 
nullp 
LLESE 
rest 
cons 
subt 
divi 
equalp 
equal 
atomp 
nullp 
lenp 

len 
assoc 
Dae dae 
printval 
readval 
nonblank 
readlist 
readint 
dig it 
letter 
readident 
readval 
evcon 
evlis 
apply 
letrec 


eval 


947 
1012 
1041 
nO o2 
1198 
1239 
1261 


16 
45 
a2 
28 
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letrec 
evcon 
evlis 
applyprin 
apply 
dcprin 


readfnane 


Generates a table of trigoncmetric values for all angles 


in the interval 0 to 90 degrees. 


Discussion 

This program demcnstrates the value of the interval 
functicn combined with the map functional. The reverse of 
the map functional, (pam), is also used. Map takes one 
function and appiies it to all the elements of a list, where 
pam takes a list of functions and applies each one to the 
Same argument. It 1s clear that mapping the pam function 
across the interval 0 to 90 froduces the desired results. 
This program also illustrates the value of the ‘id' primi- 
tive which allows the first element of each of the sublists 


in the result to be the angle. 


Source Code 


<letrec map 
<lambda <f> 
<lambda <L> 
<if <<call <var nul <vaper 
<Conn 
<call <var cons> 
<call <var £> <call <var £1rSst><var ieee 
<call <cail <vark map> <vaue2 
<call <var rest> <var L>>>>>>>> 
<letrec pan 
<lambda <F> 
<lambda <x> 
<1f <<call <vap null> Kvaree 


<con <>> 
<call <var cons> 
<caLll 


<call <var first 2! 
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<var X>> 
<calil 
<call <var pam> 
“Ca lmcvar rest><var F>>> 
<Va i x2>777>> 
<letrec interval 
<lambda <m n> 
<€if <<call <var GTI> <var m <var n>> 
<GOle <2 > 
<call <var cons> 
<varc m> 
<call <var interval> 
<call <var sum> 
<var m> 
<con 1>> 
GVAcen >> >>>> 
<call 
<call <var map> 
<call <var pam> <list <var 1d> <var sin> 
“atecOs? svar tan>>>> 
<call <var interval> <con 0> <con 90>>>>>>! 


Results of mapping the pam function across a list to 
generate the table of trigonometric values for angles 0 - 90 


degrees. 


Enter Expression 

<< 0, 0.000000, 1.000000, C.000000> 
OO) 8 o27e0. 999508, 0.077455> 
OP0306 9 yon 391, 2003492 1> 
U0 523516 peso S0), 050524 08> 
Oe VO9756.0.997564,.0.06992/7> 
OF 087 laGp Jes o>, 02,08 7439> 
0. 104528, 0.994522, 0.105104> 
Oaw2 13697 veo 2zo4o, 0.1227 85> 
O2139 1738702920263 0054 1> 


g 


~ 


@ 


* Q 


~ 


* 


= 


« 

NA NRA NHR A A A 

On DM Fw NY = 
% 


* 
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I~ IX N NKR ARO HR AR NAO ARO A AR A A A AR AR AN AR A AR A NR KR NR WN KA HR A eA ane 


Dy 
1G) 
nh. 
128 
13, 
ae 
Se 
ier 
17, 
18, 
oP 
20, 
2a 
oe 
23m 
24, 
25, 
26, 
one 
28, 
oo 
30, 
oie 
32, 
Sen 
34, 
35, 
36, 
ave 
38, 
ce 
40, 
41, 
u2, 
43, 


0.156434, 
0.173648, 
0.190809, 
0.20 79m 
0.224951, 
0. 2016228 
0.258819, 
0.275637, 
022923028 
iy OL 0) (1 7, 
0.325568, 
0.342020, 
0.358368, 
0.374607, 
0.390731, 
9.406737, 
0.422618, 
Ne he\ele 
0.453990, 
0.469472, 
0.484810, 
0.500000, 
0.515038, 
0.529919, 
0.544639, 
0.559193, 
0.573576, 
0.587785, 
0.601815, 
0.615661, 
0.629320, 
0.642788, 
0.656059, 
0.669131, 
0.681998, 


0.987688, 
0.984808, 
0.9916 276 
0.978148, 
0.974370, 
0.970296, 
0.965926, 
0.961262, 
0.956305, 
0.951057, 
0.945519, 
0.939693, 
0.933580, 
Neeaneue 
0.920505, 
0.913545, 
0.906308, 
0.898794, 
0.891007, 
0.882948, 
0.874620, 
0.866025, 
0 857 lege 
0.848048, 
0.838671, 
0.829038, 
0.819152, 
0.809017, 
0.798636, 
0.788011, 
Nova dGr 
0.766044, 
DoT ser 
0.743145, 
0.731354, 
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0.1583 84> 
0. 1765282 
0.194380> 
0.212557. 
0. 230862 
0.249328> 
0626 Jur 
0.286745> 
0. 5057212 
0.324920> 
0.344328> 
0.363970> 
0.383864> 
0.404026> 
0.424475> 
OLN 22 22 
0.466308> 
0.487733> 
0.50952. 
0.531709> 
055043092 
0.577350> 
0.60086 1> 
0.624869> 
0.649408> 
0.674509> 
0. 7U0ZUGe 
0. 72654382 
0.753554> 
On Silzeee 
0.809784> 
0-839 1002 
0. 669Ze72 
0.900404 
009325 Lae 


DOT eS NIN RDN De ANN AR ON ON NKR APN NN KR NRO A AN NN REN AOR AK 


4u, 
ioe 
46, 
47, 
48, 
49, 
50, 


Sly 


0.694658, 
Oe 707107, 
0.719340, 
Dee iss) 
0.743145, 
0.754710, 
0.766044, 
Dewi 7 1u6e 
0.788011, 
0.798636, 
0.809017, 
0.819152, 
0.829038, 
0.838671, 
0.848048, 
0.857167, 
0.866025, 
0.874620, 
0.882948, 
0.891007, 
0.898794, 
0.906308, 
0.913545, 
0.920505, 
Oo27 194, 
0.933580, 
0.939693, 
0.945519, 
0.951057, 
0.956305, 
0.961262, 
0.965926, 
0.970296, 
0.974370, 
0.978148, 


0.719340, 
0.707107, 
0.694658, 
0.681998, 
0.669131, 
0.656059, 
0.642788, 
0.629320, 
0.615661, 
0.601815, 
0.587785, 
0.573576, 
0.559193, 
0.544639, 
0.529919, 
0.515038, 
0.500000, 
0.484810, 
0.469472, 
0.453990, 
0.438371, 
0.422618, 
0.406737, 
0.390731, 
0.374607, 
0.358368, 
0.342020, 
0.325568, 
0.309017, 
0.292372, 
0.275637, 
0.258819, 
0.241922, 


0.224951, 


OFZ 07 a2, 
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UG 563 9> 
1.000000> 
1035530 
leg 250 9> 
1.110613> 
1.150368> 
1.191754> 
ie 234697> 
1.279942> 
1.327045> 
les Oa 
1.428148> 
1.48256 1> 
i523 938057 
1.600335> 
1.664279> 
Ag 205 1> 
1.804048> 
1.880726> 
i960 2611> 
2.-050304> 
2-144507> 
2-246037> 
Zee OD. > 
2-475087> 
2.605089> 
2.74747 7T> 
2-904211> 
3.077684> 
Be 0sa3> 
32.487414> 
Belo 205 11> 
4.01078 1> 
4.331476> 
4.704630> 


eS 79, 
ae < 80, 
ec 81, 
ek S26 
Axe 83; 
aX 84, 
mari< B53 
a 86, 
a < Bay 
Pa Sia 
oo < 89, 
a << 90, 
> 

Evaluation 


WE AR eK 2 A eK A a A aK A KK a Ke KK KK KK KK 


0.981627, 
0.984808, 
0.987688, 
0.990268, 
0.992546, 
0.994522, 
0.996195, 
0.997564, 
0.998630, 
0.999391, 
0.999848, 
1.000000, 


Completed 


Syste time was 


User time was 


0.190809, 
0.173648, 
0.156434, 
0.139173, 
0.121869, 
0.104528, 
0.087156, 
0.069756, 
0.052336, 
0.034899, 
Ose u52. 


Twine is, 


5-144554> 

5.671262 > 

6. JB 7 o7e 

72115370> 

8.144346> 

9.514364> 

11243005 2Z- 
14. 300666> 
1920 81s 
2B aGa62 53> 
5 ieee 6 Z> 
"undef'> 


Statistics 


4450 milliseconds 


= <a Ge ce ce ee ee ee ee eee ee ee ee ee ee ee ae eee 


ides iam 
jcons 
|ceadiden 
jreadint 
jletrec 
[eval 
{GT 

jsuDp 
}null 
jsinp 
|cosp 


leanne 


—__ a a ee oe 


10305 
121 


18 
457 
a2 
91 
547 
ont 
91 
on 
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292650 milliseconds 


ee a a i i i id 


Total cells 11991 


Results of trig table generator (Compiied) 


Evaluaticn Completed 


ek kK kK ok ok ok 2k 2k ok ek ok ok ok oi ok ok ak ok kok oe ok kk kK ok ok Ak i a ie oe fe KK ok ok kk ek ok ie ok ok ok 


Statistics 
1216 milliseconds 
24100 milliseconds 


Systea time was 


User time was 


{Module Cells created | 
a i. coo | 
|dcprin 84 | 
jcons 10305 | 
jcreadiden 121 i 
jreadint 3 | 
j letrec 18 | 
ict a2 | 
jsun 91 l 
jeval 457 | 
jnull 547 
fea hr 2 | 
|cosp 91 | 
{sing 917 | 
Total ceils 1199 1 


Profile for trigtable generatirg function 
Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testI11.f5 

Profiled Thu Dec 13 09:36 1984 


Line Count 
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35 
36 
63 
84 
94 
ize 
156 
oa 
340 
411 
433 
454 
339 
547 
564 
59g 
643 
663 
702 
704 
714 
770 
aie 
G32 
843 
867 
Olas 
880 
881 
882 
884 
947 
On2Z 


1 
456 
lag3'5 
88505 
189153 
O22 
10305 
om 

92 

OZ 

94) 

oe 

91 
10495 
88505 
S47 
aos 
2284 
456 
211 
Z30 

87 

3 

510 
634 
2a 
211 
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evlis 
applyprin 
apply 
dcprin 


creadfname 


Compariscn of Programs Run kith and Without the Memory 


The column labeled "left" in the following table refers 
to the number of cells that were in the freelist after eval- 
uation of the prograr. This 1s caused by returning the 
cells that made the program list and is noteworthy because 
several froyrams could be loaded in the same file and evalu- 


ated without the danger of using all ailocated memory. 


= = a en 


Program Mm Ne MM Left System User 
TIME TIME 

Reverse 381 401 46 416 9566 
Revaux W27 427 4 € 536 1090 
Append 531 561 51 566 10S 83 
Map({sine) 599 629 a2 533 12238 
Halving 774 898 02 816 15800 
Collate 718 748 iy, 700 17566 
Factorial 427 457 ie 416 7566 
Interval 1042 1192 Z2AbA 933 34483 
Filter 155) 476 147 516 142243 
Periodic 1071 1393 e 1116 53416 
Sip ine 611 €70 24 466 12300 
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